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本 書 は , 『 マ シン 語 プ ログ ラミ ング 入門 』, 『 又 1 リフ ァ 
レン ス ノ ッ ト 』」 に 続く 第 3 弾 と し て , また 本 シリ ー ズ の 
最終 作 と し て , これ ら 既 刊 2 冊 の アン ケー ト 葉 書 の な か 
T, も っ と も 要望 の 多かっ た アイ テム を 取り 上 げ ま し た 。 
内 容 は , ゲー ム 制 作 の た め の キ ャ ラク タ ・ パ ター ン 表 示 , 
CIRCLE や LINE な どの グラ フィ ックス , 音声 合成 を 含む 
PSG 活 用 法 , 開発 ツー ル と し て の コン パイ ラ で す 。 

これ ら は も ちろ ん , すべ て マシ ン 語 で 記述 し ます が , 
特に アル ゴリ ズム が 重要 な グラ フィ ックス に つい て は , 
BASIC で も 記述 し ,。 アル ゴリ ズム を 明確 に し て いま す 。 

コン パイ ラ は , オブ ジェ クト 効率 を 重視 し た も の で , 
X1 の よう に PCG な どの 機能 が 充実 し て いる マシ ン で は , 
リア ル タ イ ム ・ ゲ ー ム の 記述 に も 十分 使え ます 。 

BASIC と マシ ン 語 以外 の 言語 と し て , 初め て 使う 方 に 
は 多少 と ま ど い が ある か も し れ ま せん が , ロー カル 変数 
が 使え る 点 や 豊富 な 制御 文 な どの 構造 化 言語 の 雰囲気 を 
味わっ て くだ さい 。 


1985 年 8H 著者 


B 本 書 を 読む 前 に OM 


本 書 で 使用 し た アセ ンプ ブラ は , W7AX—0'DUAD- 
X1y T, し か し , 本 シリ ー ズ の 「 マ シン 問 プ ログ ラミ シン 
グ 入 門 』 に 掲載 され た アセ ンプ ブラ を 使っ て いる 方 で も ア 
セン ブル で きる よう に 配慮 し て いる の で 問題 は な いで し 
まま a 

1 章 と 2 章 で は , グラ フィ ッ ク RAM を 使い ます が , 両 
アセ ンプ ラ と も , グラ フィ ッ ク 表 示 を 禁止 し て いま す 。 
で すか ら , プロ グラ ム を 実行 する と き は BASIC か ら 実 行 
する か , つぎ の プロ グラ ム を 実行 し て パレ ッ ト を 初期 設 
定 し て か ら 行 っ て くだ さい 。 


ld bc, 10000 ; パレ ッ ト B 
ld a, 0aah 

out (c), a 

inc b ; “ХУ? სხ 
1а a, Occh 

out (c), a 

inc b : パレ ッ ト G 
ld a, 0Ғ0һ 

out (c), a 


まだ た , グラ フィ ッ ク の モー ド を 変え る と き は , width 
80” (098ch) また は “width 40° (0998h) を それ ぞ れ コー ル 
し て くだ さい 。 

な お , X1 turbo も 含む 全 双 1 シリ ー ズ に 対応 する た め 
BASIC は 『CZ-8FB01』 と 『CZ-8CB01』 を 対象 と し ます 。 
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1-1 基礎 編 
1-2 バタ ー ン の 移動 
1-3 8272—72 


本 章 で は , PCG に よる 文字 表示 や プラ フィ 
ッ ク ・ パ ター ン の 移動 , それ に 伴 つ 特 殊 な 秘 
動 や 背景 と の 重ね 合わ せ , PCG に よる スク ロ 
IBE, リア ル タ イ ム ・ ゲ ー ム に 和 め 要 な 表 
示 の テク ニッ ク を 順次 説明 し てい きま す 。 な 
5, 簡単 の ため プラ フィ ツク の モー ド は 320 メ 
200 ド ッ ト と し ます 。 まだ , サン プル の プロ ブ 
ラム は BASIC ガ ら 実 行 し て ぐだ さい 。 
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キャ ラク タ ・ パ ター ン の 表示 は ゲー ム を つく る うえ で 重要 
な 部 分 で す 。 本 編 で は , 文字 や PCG お よび グラ フィ ッ ク ・ 
パタ ー ン の 表示 方 法 に つい て 解説 し て いき ます 。 


1-1-1 テキ スト 画面 と トリ ビュ ー ト 

テキ スト 画面 に は , КОМ (キャ ラク タ ・ ジ ェ ネ レー タ 
ROM) に 内 臓 さ れ て いる 文字 フォ ント や PCG (Programa- 
ble Character Generator) に 定義 きれ た パタ ー ン が 表示 
る れ ま す 。 こ の 画面 に は , 専用 の VRAM (テキ スト 
УКАМ) が IO ポー ト の 3000H 番 地 か ら 37FFH 番地 
まで に 割り 当て られ て いて , 画面 の 位置 に 対応 する 番地 に , 
ASCI ユー ド を 書き 込め ば その コー ド の 文字 が 表示 る れ ま 
す 。 ま た だ, この 文字 に 対し て , 1 文字 単位 に 。 キャ ラク タ ・ 
ジェ ネ レ ー タ ROM, PCG の 選択 , 文字 の サイ ズ , 反転 , 
BA, 色 指 定 を する アト リ ビ ュ ー ト VRAM が 別に 設け られ 
СЁ 

X 1 に は , 表示 モー ド が 2 種類 (4 0X25, 80x2 
5) あり , 表示 位置 と TO アド レス は 図 1-1 X うに 対応 
し て いま す 。 図 の カッ コ 内 の 数 値 は アデ トリビュー ト の アド レン 
ス で す 。 

アト リ ビ ュ ー ト ・ ア ドレ ス は , テキ スト ・ ア ドレ スー1000 
H で 求め られ ます が , これ は た と えば bc レジ スタ が テキ ス 
ト ・ ア ドレ ス を 示し て いる 場合 , アド レス の 上 位 8 ビッ ト が 
格納 され て いる b レ ジス タ の 第 4 ビッ ト を クリ ア す る こと で 
簡単 に 求め あこ と が で きま す 。 


ff ld bc, nn (nn は , テキ スト ・ ア ドレ ス ) 
res 4 Ъ 
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«UND テキ スト 画面 の 表示 位置 と アト リ ビ ュ ー ト 


n 


3026 | 3027 3400 | 3401 3427 
(2026) (2027)| | (2400) (240!) (и) Eu 
3 304F 3428 | 3429 


40 字 X25 行 モー ド , ペー ジ 0 
304E | 304F 
S MD 


309E 
m T 


378 
(2780)(278))| ^ ” 


80 字 メ 25 行 モー ド 


アト リ ビ ュ ー ト は , アト リ ビ ュ ー ト VRAM に 1 バイ ト の 
デー タ を 書き 込ん で 指定 し ます 。 ア トリ ビュ ー ト の 各 ピ ビット 
は 図 1-.2 の よう な 意味 が あり ます 。 

表示 モー ド 別 に テキ スト 画面 の アド レス は , つぎ の 式 で 計 
算 で きま す 。 


@40 文 字 x25 行 (0 ペー ジ ) 
7 F L 7 =&H 3000 + ХЖ + Y FERE x 40 


@40 文 字 X25 行 (1 ペー ジ ) 
7 LL 7 = &H33400+ ХЖ + Y FERE x 40 


@80 文 字 X25 行 
7ZlFvA-&H30004- X FERE + Y FERE x 80 


リス ト 1-1 は , 上 記 の 式 の アモ セン ブル ・ リ スト で す 。 
リス ト 1-2 は , 実際 に 文字 を 表示 する プロ グラ ム で す 。 こ 
の プロ グラ ム は , "xpos' に 又 座標 。'ypos' に Y 座 標 , 1etter' 


に ASCII ユー ド , code に アト リ ビ ュ ー ト ・ コ ユー ド を 入れ て 
コー ル す る も の で す 。 こ こ で は 例 と し て PCG の ASCI а 
ー ド 41H に あたる 文字 を 画面 左上 に 表示 し , さら 6 に, その 
右 に アト リ ビ ュ ー ト ・ コ ユー ド を 変え て “A" と 表示 し て いま す 。 


SEP アト リピ ビュー ト の ビッ ト 内 容 


ビッ ト 番号 


说 


明 


0-2 


キャ ラク タ の 色 を 指定 し ます 。 カ ラー 8 色 の 表示 が 可能 。 


о |n 


=-=- -=-= 0O00 


ーー らら ーー らら 


| 


+ ШЕЕ 


0 
I 
0 
| | 赤 紫 (マゼンタ ) 
0 
| 
0 
| 


Le E: 


ш ж 


" 


> 
p 
ç 
N 
N 


1? つ ビッ ト 0 一 2 て 指定 し た キャ ラク タ ・ カ ラー の 補色 表示 (反転 ) を 行なう 。 


ე 


–– 
4 


` 1" つつ キ ャ ラク タ を 約 0.5 秒 周期 で 点 減 さ せま す 。 


5 


文字 の 表示 モー ド を 指定 し ます 。 


ხანა — S x * - *  ] 


0 標準 文字 モー ド (CG ROM) 
I ユー ザー 文字 モー ド (PCG) 


き さ を 変え ます 。 


ノー マル 文字 
垂直 2 倍 文 字 


垂直 ・ 水 平 2 倍 文 字 


. 


1-1 基礎 編 


=== Text address --- 


0C000H 


210030 : hl,3000H ;Base address of text ram 
3A1EC9 а. (уроѕ) 3У Position in а 
FE00 e ;y=0 ? 

2807 Z,SkiP ;If у=0 then skip 
912800 bc,28H іх colome іп bc (40) 
09 : hl,bc 

3D a 

28FC z.loop 

EDSBIDCO : de. (хроѕ ) 5х position in de 

19 hl ,de 

44 b,h 

4D с,1 ;Address in bc 
ED431FC80 (address),bc 

C9 


ON @ (O o -0) 0t à CO tO е 


一 一 一 一 一 一 
oo つの の 


E 
99 XPOS: 
99 ypos: 


NNN D NS tO 
Q Q b Q N ~ 


address: 


--- Print routine (PCG) --- 
org 9C999H 


CD21C9 call tadr ・Address of text ram in bc 


Print routine (address of text ram in bc) ---- 


1 
2 
3 
4 
5 
6 
7 
8 
9 
9 
1 


3A3CC9 1d a,(letter ) :Ascii code of letter іп a 
ED79 out (с),а ;Print 

CBA0 res 4,b ;Address of attribute ram 
3A3DC0 1d а, (code) iCode of attribute 

ED79 out (c).a 

CBE8 set 4,b 


93 inc bc 

3A3CC9 1а a,(letter) 
ED79 Out (c).a 

СВАВ геѕ 4,0 

ЗАЗЕСФ 1а a, (соде+1) 
ED79 out (c).a 

CBE0 set 4,ხ 

C9 ret 


N= 
@ c co — O5 Q OIN 


ы 


hb 
eo Q p. Q N 


NN 
о ~ 


calculate address of text гат ---- 


N 
დ 


210030 : 1d h1,3080H ;Base address of text ram 
3A3BC0 1d a, (ypos) :V position in а 

FE00 CP 9 ;y=0 ? 

2807 Jr 2,5К1Р ;If -y=0 then skip 

012800 1d bc,28H іх colome in bc (48) 

09 : add hl,bc 

3D dec a 

28FC jr z,loop 

ED5B3AC9 : 1d de, (xpos) ix position in de 

19 add hl,de 


CO の の 
ne 


ош 
Ф о 


の の の の の 
Co ココ の の 


っ っ 


40 C037 44 
41 C038 4D 
42 C039 C9 
43 


44 C03A 00 
45 СӨЗВ 00 


46 
47 C03C 41 
48 
49 C93D 27 
50 СӨЗЕ 07 


iAddress in bc 


XPOS: defb 9 
УРО5: defb 9 


letter: defb 41H 


defb 99199111B ;27h(normal ,ramcg,white) 
defb 00000111В ;07h(normal,romcg,white) 


1-1-2 グラ フィ ツン ク 画 面 

グラ フィ ッ ク 画 面 に は , 専用 の VRAM が IO ポー ト 
4000 Н 番地 か ら FEFFFH 番 地 ま で に 割り 当て られ て いま 
7. 構成 は 図 1-.3 の と お り で す 。 

BLUE の アド レス に 4000 H を 加え た 値 が RED の アド レン 
ス に な り , きら に, RED の アド レス に , 4000 II を 加え た 値 
が , GREEN の アド レス に な り ま す 。 

画面 の キャ ラク タ 座 標 か ら 6, グラ フィ ッ ク RAM の アド 
ンス を 求め る プロ グラ ム が リス ト 1-3 で す 。 хро ХЖ 
19, ypo に Y 座 標 を 入れ て コー ル し ます 。 

グラ フィ ッ ク ・ ア ドレ ス は , すべ て 計算 で 求め て も よい の 
で す が , この 方 法 は 後 章 に ゆず る と し て , ここ で は , 画面 の 
座標 を あら か じ め デ ー タ と し て 持つ こと で 処理 し ます 。 これ 
は 特に , 高速 に グラ フィ ッ ク ・ パ ター ン を 動か し だ い 場 合 な 
と ど に 有効 で す 。 

リス ト 1-4 は , 16 ドッ ト X16 ド ッ ト の グラ フィ ッ ク ・ パ タ 
ー ン を 表示 する プロ グラ ム で す 。 
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ЖИЕ» グラ フィ ッ ク VRAM(BLUE) ア ドレ ス と 表示 位置 と の 関係 


y = 
8 ドッ ト デー 
TA 
画面 (BLUE) 


7C28 


画面 (BLUE) 


7FCO 


(a) 320X200 ド ッ ト 画 面 (2 画面 ) 


1 
2 
3 
4 
5 
6 
学 
8 
9 
10 


N — — — — — — — — 
@ ¿O oo — O5 Qn > Ç tS 


9117C9 


2A49C9 
19 
119949 
19 
2200D0 
c9 


00002800 
50007800 
A000C800 
F0001801 
49916891 
9991B891 
E9919892 
30025802 
800248902 
0002 

Е8022003 
48037003 
9803C003 


画面 (BLUE) 


(b) 640X200 ド ッ ト 画 面 ( 1 画面 ) 


XPOS : 
ypos: 


ーー ニー address == 
9C999H 


bc.table 

hl ,(yPOS ) ФУ POSition/8 

hl ,hl 

hl ,bc 

e, (hl) 

hl 

а. hl) 

hl.(xpos) іх POSition/8 

hl.de 

de.4000H ;base address of vram (blue) 
hl.de :address 

(9D999H ) ,hl isave address to d999h 


0.40.80,120.160.200.240.280.320.360 


400.440.480.520.560,600,640,680.720 


760.800.840.880,920.960 
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Grafic pattern print routine ---- 


org 9C999H 


Calculate address Of vram ---- 


3A6CC0 iy position / 8 in a 
iDouble index 
;Make index (8bit) in hl 


iaddress of table in de 
:Table+index in hl 
iGet lsb in c 


RON @ о оф Уу O> Q > сою 


:Get msb in b 
hl, (xpos) іх position / 8 in hl 
hl.bc 
6,h ;Base address of vram (blue) 
b.h ・ 
с.1 


о У о 


routine ---- 


hl,pdata ;Address of pattern data in hl 
a,3 ;Set counter 

af ;Save counter 

bc iSave address of угат 

hl ¿Save address of pattern data 
de.9919H iPdata+16 in de 

hl.de ;hl+16 in hl 

de,hl 

hl ,28H ihl+x colome in hl 

hl,bc 

(td*1),hl 


;Set counter 

:Save counter 

:56L counter 

3Save counter 

iPattern data in a 

Print 

iIncremant address of угат 
iPattern data in a 


iDecremant address of vram 
iIncremant address of pattern data 
ilIncremant address of pattern data 


hl , 0800H ibc+899H (1 line). 
hl, bc 
b.h 
с.1 
hl 
af iReload counter 
a iDecrement counter 
nz, loop3 ;If a<>0 then loop3 
af ¿Reload counter 
bc,0000H 
a iDecremant counter 
nz,loop2 
bc ¿Reload address of угат 
hl 
hl,(td+1) 
a,h 
есен 215 vram green ? 
nc,quit ;If green then quit 
h1,4000H 
hl,bc 
b.h 
с.1 
hl 
de, 10H 
hl,de 

СЗ1СС@ 1oop1 


1O 


El 
F1 
C9 


00002800 
50007800 
A000C800 
F9991891 
40016801 
900188091 
E0010802 
30025802 
80024892 
D992 

F8922993 
48037003 
9803C003 


000A3F3F 
3F3D3D3F 
3F3C3C3F 
3F3F3F99 
ФФАВЕСЕС 
ЕСВСВСЕС 
ЕСЗСЗСЕС 
FCFCFC00 


973966CE 
CE4C9C9E 
46DBDB89 
999999F9 
E99C6673 
73323070 
620808081 
0000009F 


973F66CE 
CE4C9C9E 
46C3C389 
999999F8 
ЕВЕС6673 
73323078 
62C3C301 
9999991F 


іх position 
ФУ position 


0.40.80.120,160.200.240.280.320.360 


400.440.480,520.560.,600,640.680.720 


760.800.840.880.920,960 


90H. ВАН, ЗЕН, ЗЕН, ЗЕН, ЗОН. ЗОН, ЗЕН 
ЗЕН. ЗСН, 3CH, ЗЕН, ЗЕН, ЗЕН, ЗЕН, 08H 


BOH, BAGH, OFCH, OFCH, 9FCH、9BCH 、9BCH , 9FCH 


9FCH,3CH . 3CH 、9FCH , 9FCH , 9FCH , 8FCH 、99H 


97H. 38H, 66H, ØCEH , 9CEH , 4CH 、 CH, ВЕН 
46H. 8DBH, өрвн, 80H, 99H,99H.99H、9F9H 
9E9H,9CH.66H,73H.73H.32H.39H,79H 


62H, BDBH, 0DBH, 01H, өөн, өөн, өөн, 9FH 


97H. ЗЕН, 66H, &CEH, 9CEH , 4CH, CH, ВЕН 
46H, 8C3H, 9C3H , 80H, 00H, 00H, өөн, BF8H 
ӨЕӨН, OFCH, 66H, 73H, 73H, 32H, 30H, 70H 
62H, 9C3H , 0C3H. 01H, 00H, өөн, өөн, 1FH 


1-2 パタ ー ン の 移動 


1-2 | バターン の 移動 


2 パターン の 移動 は ,。 いわ ゆる アニ メー ショ ン の 原理 と 同じ 
C, 連続 的 に すこ し ずつ 違う 形 , まだ は , ずら し た 形 を 表示 
し て いけ ば よい の で す 。 

現在 表示 し て いる パタ ー ン を 消し て , 違う 形 あ る い は 他 の 
位置 に パタ ー ン を 表示 する と いう こと を 繰り 返す わけ で す 。 
また, パタ ー ン を 消す に は , 0 を VRAM に 書き 込め ば よい 
の で す が , 後に 述べ る 背景 と の 重ね 合わ せ の 問題 ああ る の 
С, 一 概 に は いえ ませ ん 。 


1-271 キー 入力 
ええ 1 に は , いく つか キー デー タ を 読む 方 法 が あり ます が , 


ここ で は , IO ポー ト の 1900 H を 読む と いう 最も 簡単 な 
方 法 を 取り まし た 。 


ld bc, 1900H 
in a, (с) ; a レ ジス タ に 押 き され だ た キー の 
ASC11 コ ユー ド が 入る 


な お , X 1 で は , 同時 に 2 つ 以 上 の キー を 判断 び できない た だ 
š (X1 turbo は 別 )、 ゲー ム な ど で , ミサ イル を 打ち な が 
6 移動 する と いっ た こと は で きま せん 。 


1-2-2 基本 的 移动 

リス ト 1-5 は 最も 基本 的 な パタ ー ン の 移動 プ ゲロ グ ラム 例 で 
す 。 こ れ は , 2, 4, 6, 8 キー に より , 16X16 ド ッ ト の 
2 パター ン を 縦横 8 ドッ ト 単 位 で 動か す も の で す 。 ま た だ た , * キ 
ー を 押す と シス テム に 戻っ て きま す 。 

移動 で きる か どう か は , 320х200 ドット の 画面 を 縦横 8 


ドッ ト 単 位 で 分 割 し て 考え て いる の で , 縦 は 24, 横 は 392: 
最大 値 で あり , 更新 し た 双 座 標 , Y 座 標 が 画面 の 範囲 を 越え 
て いな いか を チェ ッ ク し て 判断 し ます 。 も し , 越え て いな け 
れ ば , БИЕ, 表示 し て いる パタ ー ン を 消去 し て , 新しい 位置 
に パタ ー ン を 表示 し ます 。 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
9 
1 
2 


__–=.__- 
დდთათთ>C 


Pb 
ольом№ ~ 


の の の の の の の いい らい 
の の ム ぬら の いい 一 の の ココ 


осо 
の の こく) 


+ 


+ P. Pp. P. 2> Pp p p. 
о Q — O) n > Q o 


ooduuoooodgcoco 
-соо-әоольокы-- 


тн pattern move “ო 


org 9C999H 
919919 key: 1d bc 、1999H ;bc=i/o port address 
ED78 in а, (с) ;get key (а=аѕсіі code) 
FE32 cp < 
CA1FC9 JP z.down zif a=2 then down 
FE34 cp 4" 4 
CA34C9 JP z,left ;if a=4 then left 
FE36 cp “რ “6” 
CA48C0 jp Z,right iif a=6 then right 
FE38 cp "8 :'8' 
CA5DC0 jP z.up ;if a=8 then up 
FE2A cp "а" 
C8 ret z iTeturn to system 
C399C9 81% Кеу 
3A26C1 down: 1d a. (ypos) :y position in a 
FE17 cp 23 :V=23 ? 
D299C9 jp nc.key ;if y>23 then key 
CD88C0 call erase ;pattern erase 
3C inc a :V=V+1 
3226C1 1ძ (уроѕ ) ,a ;Save y position to a 
CDCDC@ call disp ¿pattern display 
C300C0 jp key 
3A24C1 left: 1d а. (XPOS) іх position in а 
B7 or a :X=8 ? 
CA00C0 JP 2.Кеу iif x=0 then key 
CD88C8 call erase ¿pattern erase 
3D dec a :X=X-1 
3224C1 1ძ (xpOsS),a ia in (xpos) 
CDCDC8 call disp 
C399C9 JP key 
3A24C1 right: 1d a, (xpOs) іх Position in a 
FE26 cp 38 ix=38 ? 
D299C9 Jp nc,key ;if x>38 then key 
CD88C0 call erase ;pattern erase 
3C inc a :X=X+1 
3224C1 1ძ (xpOS),a 
CDCDC@ call disp 
C399C9 JP key 
3A26C1 UP: 1d а, (уроѕ ) {у position іп а 
B7 or a ;y=0 ? 
CA00C0 Jp z.key iif y=0 then key 
CD88C0 call erase іраќќегп erase 
3D dec a :V=V-I 
3226C1 1d (ypos).a 
CDCDC@ call disp 
C300C0 jP key 
3A26C1 adr: 1d а, (ypOs) 
87 add a.a 
6F 1d l,a 
2600 ld h. 0 
1127C1 ld ае, table 


FFL 


«ЕШ --: 


62 C07B 19 

63 C07C 4E 

64 C07D 23 

65 C07C 46 

66 C07F 2A24C1 
67 C082 09 

68 C083 CBF4 
69 C085 44 

70 C086 4D 

71 C087 C9 


73 C088 F5 

74 C089 CD71C9 
75 C08C C5 

76 C08D 212800 
77 C090 09 

78 C091 22AEC0 
79 C094 3E02 
80 C096 F5 

81 C097 3E08 
82 C999 F5 

83 C99A AF 

84 C99B ED79 
85 C99D 03 

86 C09E ED79 
87 C9A9 OB 

88 C9A1 210008 
89 C9A4 09 

90 C9A5 44 

91 C@A6 4D 

92 C0A7 Fl 

93 C9A8 3D 

94 C0A9 С299С@ 
95 C9AC Fl 

96 C9AD 010000 
97 C0B0 3D 

98 COBI C296C0 
99 C0B4 C1 

100 C085 2AAEC9 
101 C9B8 7C 

102 C0B9 FEC0 
103 C9BB D2CBC0 
104 COBE 210040 
105 COCI 09 

106 СӨС2 44 

107 СӨСЗ 4D 

108 C0C4 111000 
109 C0C7 19 

110 C0C8 C38CC0 


2 СӨСВ F1 
C9CC c9 


CCE CD71C9 
CODI 2159C1 
C9D4 C5 

119 COD5 65 

120 COD6 111000 

121 C9D9 19 

122 СӨрА EB 

123 C9DB 212800 

124 CODE 09 

125 CODF 2202C1 

126 C9E2 El 


11 

113 

114 

115 C9CD F5 
116 

117 

118 


128 C0E3 3E92 
129 C9E5 F5 
130 COE6 3608 
131 C9E8 F5 
132 C9E9 7E 
133 C9EA ED79 
134 C9EC ӨЗ 
135 COED 1А 


10062: 


loop3: 


td: 


quitl: 


disp: 


loop4: 


hl.de 

с, (hl) 

hl 

b, (hl) 
hl. (xpos) 
hl,bc 
6,h 

b.h 

с,1 


hl ,bc 


bc 
hl,0800H 
hl,bc 
b,h 

с,1 

af 

a 

nz, loop3 
af 
bc.0000H 
a 
nz,loop2 
bc 

hl, (td+1) 
a,h 

9C9H 
nc,quit1 
h1,4000H 
hl ,bc 
b,h 

cal 

de, 10H 
hl,de 
1oop1 


af 


af 

adr 

hl ,pdata 
bc 

hl 
de,0010H 
hl ,de 
de,hl 
hl, 0028H 
hl,bc 
(td1l+1) ,hl 


1-2 パタ ー ン の 移動 


254% 


13 


14 


136 
137 
138 
139 
146 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 


176 


177 
178 
179 
180 
181 
182 


183 
184 


185 
186 
187 


188 
189 


АФ 1-5 “2:26 


ED79 
9B 

23 

13 

E5 
210008 
89 

44 

4D 

El 

F1 

3D 
C2E8C8 
F1 
010000 
3D 
С2Е5С0 
Ci 

ES 
2A02C1 
7C 
ЕЕС@ 
D221C1 
210040 
09 

44 

4D 

E1 
111000 
19 
C3D4C@ 


E1 
F1 
C9 


99992899 
500078098 
A000C800 
F9991891 
40016801 
9991B891 
E9919892 
30025802 
80024802 
0082 

F8022003 
48037003 
9893C993 


999A3F3F 
3F3D3D3F 
3F3C3C3F 
3F3F3F99 
99A9FCFC 
FCBCBCFC 
FC3C3CFC 
FCFCFC99 


973966CE 
CE4C9C9E 
46DBDB89 
999999F9 
Е00С6673 
73323070 
62DBDB9 1 
9999999F 


973F66CE 
CE4C8COE 


tdl: 


quit2: 


XPOS: 
ypos: 


table: 


pdata: 


defw 


defw 


defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 


defb 


(c),a 

bc 

hl 

de 

hl 
hl,0800H 
hl ,bc 
b,h 

с,1 

hl 

af 

a 
nz,loop6 
af 
bC,9999H 
a 
nz,loop5 
bc 

hl 
hl,(tdl*1) 
a,h 

9C9H 
nc,quit2 
hl,4000H 
hl,bc 
b.h 

C+1 

hl 
de,19H 
hl ,de 
loop4 


hl 
af 
9 
9 


0.40.80.120.160, 200, 240, 280.320,360 


400.440, 480,520 .560, 600,640, 680,720 


760,800.840, 880.920, 960 


ӨӨН, ВАН, ЗЕН, ЗЕН, ЗЕН, ЗОН, ЗОН, ЗЕН 
ЗЕН. ЗСН, 3CH, ЗЕН, ЗЕН. ЗЕН, ЗЕН, BOH 


99H,9A9H,9FCH、9FCH,9FCH ВСН, BBCH , OFCH 


ЕСН, ЗСН, 3CH, ӨҒСН, ЕСН, ЕСН, 9FCH, 00H 


97H, 30H, 66H, &CEH, СЕН. 4CH , 9CH , BEH 
46H , ØDBH , 9DBH 80H, 00H. 00H, 00H, OF9H 
VE0H,0CH, 66H, 73H, 73H, 32H, ЗӨН, 70H 

62H. ODBH, ØDBH , 01H, 00H, өөн, өөн, 9FH 


97H, 3FH, 66H, СЕН, СЕН, 4CH, 9CH , ФЕН 


I-2 パタ ー ン の 移動 


эзе 

190 C1A1 46C3C389 defb 46H, 0C3H, 9C3H , 80H, 99H,99H.99H,9F8H 
C1A5 000000F8 

191 C1A9 E@FC6673 defb 9E9H,9FCH,66H,73H,73H,32H,39H,79H 
C1AD 733230760 

192 C1B1 62C3C391 defb 62H, ØC3H, 0C3H, 01H. 00H, 00H, 00H, 1FH 


C1B5 000000!F 


1-2-3 大 き な バ ターン の 移動 


これ まで 扱っ て きた 16X16 ドッ ト の パタ ー ン は , ゲー ム 
に 出 て くる 普通 の キャ ラク タ と し て は , 十分 な 大 きる です が , 
や は り , 見 た だ 目 の 面白 る を 出す た め に は より 大 き な パ ター ン 
を 表示 し た いと ころ で す 。 そ を そこで, こん ど は 64X64 ド ッ ト 
の 大 き な パ ター ン を 動か し て み ま す 。 

パタ ー ン が これ だ け 大 きい と デー タ 量 も 相当 な も の で す 。 
で すか ら , 大 き な パ ター ン を 表示 , 移動 きせ る 場合 , い ちい 
ち 消 去 と 表示 の 繰り 返し も を し て いた の で は , 大 幅 に 遅く な っ 
て し まい ます 。 その た だ ため, パパ ター ン が ちら つく こと も あり ま 
す 。 こ の 対策 と し て 部 分 消去 』 と いう 方 法 を 使い ます 。 

これ は , た と えば 左 へ 8 ドッ ト 移 動 す る と き は パタ ー ン の 
右 8 ド ッ ト だ け を 消去 し , あと は , 移動 する 位置 へ パタ ー ン 
の デー タ を 書き 込む だ け に する と いう 方 法 で す 。 

リス ト 1-6 თ, “erase 1' と 'erase 2? は , それ ぞ れ 左右 8 ドド 
ッ ト を 消去 する もの, 上 下 の 8 ライ ン を 消去 する も の で す 。 

この よう な 大 き な パ ター ン で な く て も ちら つき が で る 場合 
が あり ます 。 これ は , 前 に 表示 し て る も の と 同じ も の を 同じ 
と ころ に 書き 込む 場合 に 起こ り ま す 。 こ れ を 解決 する の は , 
アル ゴリ ズム 上 の 問題 び . キャ ラク タ が 動か な いと き は 再 表 
示し な いと いう よう に すれ ば よい で し ょ Э, 
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pattern print (64*64 
9C999H 


2193C2 hl .pdata 
1194C2 de、pdata+1 
010006 bc.1536 
36FF (h1).0FFH 
EDB9 


919919 : bc.1900H 
ED78 a.(c) 


FE32 io 
СА2СС0 z.down 
FE34 4” 
CA4FC9 ) z.left 
FE36 : "B" 
CA6FC9 j z.right 
FE38 Ч "B? 
CA8CC9 z.UP 
FE2A "et 

C8 z 
C39DC9 key 


3AFFCI a.Cypos) 
FE11 17 
D29DC9 j nc.key 
3C inc a 

32FFC1 (уроѕ ).а 
2103C2 hl.pdata 
CDC8C9 disp! 
2A01C2 hl.(adwork) 
012800 bc.28H 
AF a 

ED42 hl.bc 

44 b.h 

4D с.1 
CD80C1 erase2 
C39DC9 j key 


3AFDC1 a. (xpos) 
a 


z.key 


a 
32FDC1 (хроѕ).а 
2193C2 hl .pdata 
CDC8C9 disp! 
2A91C2 hl .(adwork) 
110800 
19 
44 
4D 
CD2EC1 
C30DC0 


3AFDCI 

FE20 

D29DC9 

3C 

32FDC1 

2103C2 

CDC8C0 

ED4B01C2 bc.(adwork) 


dot) 


:carry flag clear 


一 一 一 一 一 一 一 一 一 
一 一 一 一 一 一 一 一 
© ¿Oo oo — O) Q > Q tS 


NNN 
OM 


124 
125 
126 
127 
128 
129 
130 
131 
132 


1-6 つづ き 


9B 
CD2EC1 
C39DC9 


3AFFC1 up: 


E5 adr: 


E1 
ED4391C2 
C9 


displ: 
loopl: 


CDACC0 
3E08 
C5 
C5 loop2: 
CD1DC1 

CBD8 

CD1DC1 

CBE9 

CB98 

CDIDCI 

CBD8 

CDIDCI 

CBE8 

CBA9 

CB98 

CDIDCI 

CBD8 

CD1DC1 

CBE9 

CB98 

CDIDCI 


bc 
erasel 
key 


а. (уроѕ) 
а 

z,key 

a 
(ypos).a 
hl.Pdata 
displ 


hl .(adworKk) 


de.329 
hl .de 
b.h 
CV.) 
erase2 
key 


hl 
bc.ydata 
hl.(ypos) 
hl, hl 


а. (hl) 
hl.(xpos) 
hl.de 
de.4000H 
hl.de 

hl 

bc 

hl 


(adwork) .bc 


adr 
a.8 


I-2 パタ ー ン の 移動 


ФУ position /8 


іх position /8 

:address 

:blue vram base address 
iblue address 


22% 


17 


18 


>= 


133 C105 El 


134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 


C106 
C107 


C109 
C19A 
C19B 
C10C 
C19E 
C111 
C114 
C115 
C116 
C117 
C118 
C118 
C11C 


C11D 
C11C 
C120 
C121 
C122 
C123 
C125 
C126 
C127 
C128 
C129 
C12B 
C12C 
C12D 


C12E 
C130 
C131 

C132 
C135 
C137 
C13A 
C13C 
C13E 
C141 

C143 
C146 
C148 
C14A 
C14C 
C14F 
C151 

C154 
C156 
C158 
C15B 
C15D 
C160 
C161 

C162 
C165 
C166 
C167 
C168 
C169 
C16A 


C16C 
C16D 


3D 
20C5 


CI 

ES 

78 
FEC9 
D21BC1 
219949 


CD7AC1 
D1 
E5 
212800 


ret: 
disp2: 


loop3: 


erasel: 


loop5: 


hl 
a 
nz.loop2 


bc 

hl 

a.b 

9C9H 
nc.ret 
hl.4000H 


a 
nz.loop3 
bc 
af 


a 
nz,loop5 


bc 
a.b 


つづ く 


258 


CDBDC1 
CBD8 
CDBDC1 
CBE8 
CBA9 
CB98 
CDBDC1 
CBD8 
CDBDC1 
CBE9 
CB98 
CDBDC1 
CBD8 
CDBDC1 


00002800 
50007800 
A000C800 
F0001801 
40016801 
9991B891 
Е0010802 
30025802 
80024802 
0002 


disp3: 


: 
erase2: 


disp4: 


loop7: 


ydata: 


push 
call 
set 
call 
set 


defw 


I-2 パタ ー ン の 移動 


[е 


nc 
hl.4000H 
hl.bc 


hl, bc 


nz, loop7 
bc 


9,40,80,120.160,200.240,280,320,360 


400,440,480,520.560,600,640,680,720 


FIK 


19 


20 


つづ き 


259 C1F1 F8922993 760,800,840,880,920,960 
CIF5 48037003 


C1F9 9893C993 


269 


261 CIFD 0800 xpos: defw 


262 CIFF 0000 ypos: defw 
263 C201 0000 adwork: defw 


264 
265 C203 


pdata: 


1-2-4 横 4 ド ペット 単位 の 移動 


VRAM の 構造 上 , 上 下 に は 1 ドッ ト 単 位 で も 移動 で きま 
+», 左右 へ は 8 ドッ ト 単 位 の 方 が 簡単 で す 。 しかし, 8 ド 
ッ ト 単 位 し いう の は , 場合 に よっ て は 移動 量 が 大 きす ぎ て , 
な め ら か に 移動 し て いる よう に は 見 えま せん 。 を そこで, こん 
と は 横 4 ド ッ ト 単 位 に 移動 する 例 を みて いき ます 。 

е, 横 16 ド ッ ト (2 バイ ト ) の パタ ー ン が ある と し て , 
この パタ ー ン ・ デ ー タ を rld 命令 か rrd 命令 に よっ て , 4 
ビッ ト 分 シフ ト し て 3 バイト の デー タ に し ます ( 図 1-4)。 
2 LC, 図 の (A) の デー タ を VRAM に 書き 込ん だ 後 , 
右 へ 4 ビッ ト 移動 す る に は (B) の デー タ を 同じ VRAM の 
アド レス に 書き 込め ば よい わけ で す 。 き ら に , 右 へ 4 ビッ ト 
移動 する に は , HU, (А) の デー タ を 前 の VRAM の アド 
L 2 + 1 に 書き 込み ます 。 例 を リス ト 1-7 に 示し ます 。 


«HEB 204 :55354 кх 


CA) 110100111011011 


= ピッ ト 分 シフ ト し て 3 バイ ト に 拡張 する 。 


(B) 00001101001110110110000 


1-2 パタ ー ン の 移動 


に ニニ pattern move (4 dot) ---- 
i есевен 
CDB9CI Shift 


010019 Key: bc,1999H 
ED78 а, (с) 


ҒЕЗ2 
CA22C@ 
FE34 
CA39C9 


RR Фоо Q > Ç t — 


ONDA 


の の つの の ょ ぬら の レー 


e 
° 


323BC1 (уро5).а 
CD3DC1 disp 
C303C0 key 


ошо 
wr 


3A39C1 а, (xpos) 

B7 a 

2007 nz,leftl 214 xpos>0 then left1 
3A37CI a,(flg) ;flg in a 

B7 a if19=9 ? 

CA93C9 z,key 214 flg=8 then key 
CDC3C9 : erase iErase pattern 

3A37C1 a,(flg) 

B7 a 

C25EC@ nz,left2 ;If flg-8ffh then left2 
3A39C1 a, (xpos) 

3D a decrement xpos 
3239C1 (xpos),a 

3EFF а, ЕЕН :56L flg 

3237C1 (flg),a 

1804 left3 

AF left2: a iclear flg 

3237C1 (flg),a 

CD3DC1 left3: disp 

C393C9 key 


34 
35 
36 
37 


+ о ш 
coo 


+ P Pp. p. p. 
Q p OtN- 


> 
の 


3A39C1 right: a, (xpos) 

FE26 38 ixpos=38 ? 

3807 c,right1 ;If xpos>38 then right1 
3A37C1 a, (flg) 

B7 a 

CA03C0 J 2.Кеу 

CDC3C9 right1: erase 

3A37C1 а, (#19) 

B7 a 

280D z,.right2 ;If flg=0 then right2 
AF a iClear flg 

3237C1 (flg),a 

3A39C1 а, (XPOS) ' 

3C a ;Increment #19 

3239C1 (xpos),a 

1805 right3 

ЗЕРЕ right2: a,8FFH ;Set flg 

3237C1 (flg).a 

CD3DC1 right3: disp 

C393C9 key 


21 


75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


FON) წე = = w = == ი w = = 
5 tŠ — @ Фо — O) Q + G to — 


t 
© 


125 
126 
127 
128 
129 
1398 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


3D 

323BC1 
CD3DC1 
C393C9 


91F3C1 
2A3BC1 
29 


CD15C3 
3A37C1 
B7 
2804 
3683 
1802 
3E92 
3238C1 
CDADC9 
ED4333CI 
CDFEC9 


ED4B33C1 
3E49 

89 

47 
ED4333C1 
CDFEC9 


ED4B33C1 


ED4333CI 
CDFEC9 
C9 


CD9FC1 
ED4B33C1 
212800 
99 

44 

4D 
CD12C1 
C9 


2A33C1 
2235C1 


adr: 


erase: 


erasel: 
erase2: 


erplan: 


1d а, (уроѕ) 
ог а 

јр z,key 
push af 

call erase 
POP af 

dec a 

1d (ypOs),a 
call disp 

јр Кеу 

1а bc,table 
1d hl, (ypos) 
add hl ,hl 
add hl ,bc 

1d е, (hl?) 
inc hl 

1d а, (hl?) 
1а hl, (xpos) 
ааа hl ,de 

1d de ,4999H 
add hl ,de 
Push hl 

POP bc 

ret 


ERASE PATTERN 


call dely 

1а a. (flg) 

or a 

Jr z.erasel 

1d a.3 

Jr erase2 

1d а.2 

1а (leng).a 
call adr 

1d (adwork) ,bc 
call erplan 

1d bc, (adwork) 
1d a.40H 

add a.b 

1а b.a 

1а (adwork),bc 
call erplan 

1d bc, (adwork) 
1а а.49Н 

ада a,b 

1d b.a 

1а (adwork),bc 
call erplan 

ret 

call er8lin 

1d bc.( adwork) 
1d hl , 49 

add hl ,bc 

1d b,h 

1d C.1 

Cმ11 Ger8li 

ret 

ld hl , (adwork) 
1d (adw1 ) ,hl 
1d d,8 

1d а, (leng) 

1а е.а 

хог а 

out (c),a 

inc bc 

dec e 

jr nz,er812 


:Delay 


:Pattern length (3byte) 


in a 


¿Pattern length (2byte) in a 


iErase pattern 


:Address of vram in adwork 


;Blue plane 


Бей plane 


;Green plane 


:Erase upper 8line 
iErase lower 811ne 


;Set counter 


;Clear a 


;decrement length 


っ 


1-7 つづ き 
15 dec 
C8 ret 
ED4B35C1 1d 
210008 1а 
09 ада 
2235С1 1а 
44 1а 
4D 1а 
18Е4 jr 
adwork: defs 
adwl: defs 
99 flg: defb 
99 1eng: defb 
9A09 xpos: defw 
0000 ypos: defw 
; display 
CD15C3 disp: call 
3A37C1 1d 
B7 or 
2808 jr 
3E03 1а 
DD2185C2 1d 
1896 jr 
3E02 displ: Id 
DD2125C2 1d 
3238C1 disp2: 14 
CDADC9 call 
ED4333C1 1d 
CD89C1 call 
ED4B33C1 ld 
ЗЕ40 1а 
80 ада 
47 1а 
ED4333C1 1d 
CD89C1 call 
ED4B33C1 1d 
3E49 1d 
89 add 
47 1d 
ED4333Ci 14 
CD80CI call 
C9 ret 
CD91C1 dpplan: call 
ED4B33C1 1d 
212800 1d 
99 add 
44 1d 
4D 1d 
CD94C1 call 
C9 ret 
2A33C1 dp8lin: 1d 
2235C1 @dp81i: 1d 
1608 1d 
3A38C1 dp8ll: ld 
5F 1а 
DD7E00 dp812: 1d 
ED79 out 
03 inc 
DD23 inc 
ID dec 
29F5 jr 
15 dec 
C8 ret 
ED4B35C1 1d 
210008 1а 
99 ааа 
2235C1 1d 
44 1d 


d 

® 

bc, (адмі) 
hl ,9899H 
hl,bc 
(adwl).hl 
b.h 

c.l 

ег811 


ix,pdata 
(1eng) .a 
adr 
(adwork) .bc 
dpplan 


bc,(adwork) 
a,40H 

a.b 

b.a 
(adwork).bc 
dpplan 


bc., (adwork) 
a,40H 

a.b 

b.a 
(adwork).bc 
dpplan 


dp8lin 
bc.tadwork) 
hl.40 


с.1 
@dp81i 


hl 、(adworK) 
(adwl ) ,hl 
d.8 

a, (leng) 
e.a 

მ.(IX) 
(C).3 

ხC 

be 


e 
nz.dp812 


d 

z 
bc.(adwl) 
h1.0800H 
hl.bc 
(adw1 ) .hl 
b.h 


1-2 パタ ー ン の 移動 


idecrement counter 


:Pattern length in a 
iAddress of sdata in ix 


:Pattern length in a 
iAddress of pdata in ix 


:Blue plane 


:Red plane 


;Green plane 


952 


23 


24 


227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 


4D 
18Е0 


DD2125C2 
FD2185C2 
21F1C1 
0630 
DD5E00 
DD5601 
ED53F1C1 
AF 

ED6F 
FD7799 
FD23 

7E 

23 

ED6F 
Е07700 
FD23 

7E 

E6F9 
FD7700 
FD23 
DD23 
DD23 

2B 

10D6 

C9 


00002800 
50007800 
A000C800 
F0001801 
40016801 
9001 

B891E991 
08023002 
58028002 
48020002 
Е8022003 
48037003 
9803C003 


99999AA9 
3FFC3FFC 
3FFC3DBC 
3DBC3FFC 
3FFC3C3C 
3C3C3FFC 
3FFC3FFC 
3CFC9999 


97E9399C 
6666CE73 
CE734C32 
9C300E70 
4662DBDB 
DBDB8991 
00000000 
9999F99F 


97E93FFC 
6666CE73 
CE734C32 
0C300E70 
4662C3C3 
C3C38001 
00000000 
9999F8IF 


010010 
9B 


つづ き 


Shift: 


jmpl: 


wdata: 


table: 


pdata: 


sdata: 


dely: 
delyl: 


defw 


defw 


defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 


defb 
defb 
defb 
defb 


defs 


1а 
dec 


C.l 

dp811 
ix、pdata 
iy,sdata 
hl .wdata 
b,48 
e,(ix) 

а, (іх+1) 
(wdata) ,de 


0.40.80,120.160,200,240,280,320,360,400 


440,480,520,560.600,640,680,720,760,800 


840,880,920,960 


00H, 00H, ВАН, BAGH , ЗЕН, OFCH, ЗЕН, 9FCH ;blue 
ЗЕН, ØFCH , ЗОН, 9BCH , 3DH , 9BCH , ЗЕН. 9FCH 

3FH, ØFCH , 3CH , 3CH , 3CH , 3CH , ЗЕН, 9FCH 
3FH、9FCH,3FH.9FCH , 3CH , ЕСН, вен, вен 


97H.9E9H,39H,9CH,66H,66H,9CEH,73H ;red 
СЕН, 73H, 4CH, 32H, CH, 30H, OEH, 70H 

46H. 62H, 0DBH, 0DBH, 9DBH , 0DBH, 80H, 01H 

90H. 00H. өөн, өөн, 00H, өөн, OF9H, Ен 


97H, 0E0H, ЗЕН, 8FCH. 66H, 66H, CEH, 73H ;green 
OCEH. 73H, 4CH, 32H, ØCH , 30H , BEH , 7ØH 

46H. 62H., ØC3H . 9C3H, ØC3H , өсзн, 80H, 01H 

BOH, OAH, 00H. 00H, 00H. BOH, OFBH, 1 FH 


144 


bc. 1000H 
bc 


っ Ft 


281 C319 79 


282 СЗ1А BØ 
283 C3IB C8 
284 СЗІС 18FA 


1-2 パタ ー ン の 移動 


25 


26 


1-3 | MFHz2—v2 


これ まで は , パタ ー ン の 表示 や 消去 の と き に 背景 の こと を 
考慮 し て いま せん で し た 。 そのため , 背景 に 何 か 表 示さ れ て 
いる 場合 , これ まで の 方 法 で は , 背景 に 影響 を 与え て し まい 
ます 。 こ こ で は この 背景 と の 重ね 合わ せ テ クニ ッ ク ヒ РСС 
に よる スク ロー ル を 紹介 し ます 。 


1-3-1 重ね 合わ せ 

テキ スト 画面 と グラ フィ ッ ク 画 面 の を それ ぞ れ に 移動 物 と 背 
景 を 表示 する ぶん に は , 重ね 合わ せ を 気 に す る 必要 は あり ま 
ФА. しかし, グラ フィ ッ ク 画 面 だ け を 使う と き は , 背景 に 
影響 も 与 を な いよ うに する 必要 が あり ます 。 こ れ に は , 7217 
ー ン を 消す と き に 背景 を 書き 直せ ば よい の で す が , こう する 
と パタ ー ン の デー タ の ' 0 ' の 部 分 だ け 背 景 が 黒く な っ て し ま 
с, 多少 不 自 然 な 感じ が し ます 。 こ れ を 避け る た め に は 次 の 
よう な 方 法 が あり ます 。 

(1) パタ ー ン と 背景 の 排他 的 論理 和 を と る 

Z8 0 の マシ ン 語 に 'xor' と いう ニモ ニッ ク が あり ます が , 
これ は 同じ 値 ど うし で 演算 する と 0 に な り ま す 。 こ れ を 利用 
する と 背景 に 影響 も 与え を ず パ ター ン を 表示 する こと が で きま 
З 

まず , 表示 する と き は , その 位置 の 背景 ゲー タ と パタ ー 
ン ・ デ ー タ の XOR を と っ て VRAM に 書き 込み ます 。 消 す 
と き は , さき ほど 論理 演算 し た 結果 と パタ ー ン ・ デ ー タ の 
ХОК を る さる ら に と っ て , その デー タ を 書き 込み ます (背景 を 
書き 直し て も よい )。 

リス ト 1-8 に この 例 を 示し ます 。 実行 前 に グラ フィ ッ ク で 
適当 に 背景 を 書い て お いて くだ きい 。 実行 する と わか り ま す 
が , この プロ グラ ム で は 背景 に 影響 を 与え を さ な い か わり に , Ж 


1-3 応用 テク ニッ ク 


ー ン その も の の 色 が 背景 の 色 に よっ て 変化 し て し まう と い 
SEE DR ます 。 


pattern move (xor) 
9C990H 
CD8BC@ erase 


010019 : bc.1900H 
ED78 a.(c) 


— @ c @% — O) Q > ом бе 


FE32 "2 
CA22C9 z.down 
FE34 vae 
CA37C9 j z.left 
FE36 “6” 
CA4BC0 

FE38 

CA60C0 

FE2A 

C8 

C393C9 


の の ココ の の ょ の いら 


N t 
_ = 


3A47C1 : a,(ypos) 
FE17 23 
D203C0 nc.key 
CD8BC@ erase 

3C i a 

3247C1 (уроѕ ),а 
CDE8C8 disp 
C393C9 j key 


IO S 52 2 S S o 
o 300 ON 


の の の ゆい 
N 一 加 加 


3A45CI : а, (хроѕ) 
B7 a 

CA03C0 j 2.Кеу 
CD8BC0 erase 

3D a 

3245C1 (xpos).a 
CDE8C9 disp 
C393C9 key 


の の 
0 


35 
36 
37 
38 
39 
40 


3A45C1 i : а, (XPOS) 
FE26 

D203C0 

CD8BC0 

3C 

3245C1 ・ (хров),а 
CDE8C0 disp 
C303C0 key 


> 


+ P P Pp p p 
-Oo Qn Ct 


3A47CI : a,(ypos) 
B7 a 

CA93C9 z.key 
CD8BC0 erase 

3D a 

3247C1 (ypos),a 
CDE8C0 

C303C0 


3A47C1 
87 

6F 
2600 
1148C1 
19 

4E 

23 

46 


27 


28 


C982 
C985 
C986 
C988 
C989 
C98A 


C98B 
C98C 
C98F 
C992 
C993 
[ЕЕ 
C097 
C998 
C099 
C99C 
C99D 
C9A9 
СӨЛІ 

C9A3 
C0A4 
C9A6 
C9A7 
C9A9 
C0AA 
CAAC 
C9AD 


ji CAAF 


COBA 
CABl 

CNB3 
C9B4 
C9B5 
C9B6 
C0B7 
C9B8 
C9BB 
C9BC 
C9BD 
C9BE 
C9BF 
caco 
C9C1 

C9C4 
C9C5 
C9C8 
Ceco 
C9CC 
C9CD 
COCE 
сөрт 

C9D2 
C9D4 
C0D7 
C9DA 
серв 
C9DC 
C9DD 
C9DE 
COE! 

C9E2 


COES 
COEG 
C9E7 


C9E8 
CeE9 
C9EC 
C9EF 
Cere 
CeF1 
C9F4 
C9F5 
CgF6 


k  I=ფ 


2#45C1 


F5 
CD74C0 
217AC1 
C5 


3D 


El 


EB 
212800 


eri 


erase: 


1oop1 : 


loop2: 


loop3: 


td: 


quiti: 


disp: 


loop4: 


hl 、(xPoS ) 
hl ,bc 
6.h 

b.h 

c.l 


af 

adr 
hl,pdata 
bc 

hl 
de.9919H 
hl .de 
de.hl 

hl ,28H 
hl .bc 
(td+l).hl 


hl 
hl.0800H 
hl.bc 
b.h 

C.l 

hl 

af 

a 
nz.loop3 
af 

bc, 0000H 
a 
nz.loop2 
bc 

hl 

hl ,(td+1) 
a,h 

есен 
nc.quitl 
hl.4000H 
hl.bc 

hl 

bc 

hl 
de,19H 
hl .de 
1oop1 


hl 
af 


af 

adr 

hl .pdata 
bc 

hl 

de, 0ð1ðH 
hl.de 
de.hl 

hl .9928H 


:read buck ground 

・(buck ground) xor (pattern deta) 
¿print 

*1ncrTement address of угат 


53:25 


200 


201 
202 
203 
204 
205 
206 


D242C1 
210040 
99 


00002800 
50007800 
A000C800 
F0001801 
40016801 
9001B801 
E0010802 
30025802 
8002A802 
D002 
F8022003 
48037003 
9803C003 


999A3F3F 
3F3D3D3F 
3F3C3C3F 
3F3F3F99 
99A9FCFC 
FCBCBCFC 
FC3C3CFC 


tdl: 


quit2: 


xpos: 
ypos: 


table: 


pdata: 


defw 


defw 


defb 
defb 
defb 
defb 


1-3 応用 テク ニッ ク 


hl ,bc 
(tdl+1),hl 
hl 


მ.(C) ・ Read buck ground data 
(hl) xor (buck) and (pattern data) 


hl 
hl.0800H 
hl.bc 
b,h 

c.1 

hl 

af 

a 

nz, loop6 
af 
bc,0000H 
a 
nz.loop5 
bc 

hl 
hl,(tdl*1) 
a.h 

Өсөн 
nc.quit2 
hl.4000H 
hl,bc 

hl 

bc 

hl 

de, 10H 
hl.de 
loop4 


hl 
af 


0.40.80.120.160.200.240.280,320.360 


400,440,480.520.560.600,640,680.720 


760,800.840.880.920.960 


OOH. ВАН, ЗЕН, ЗЕН, ЗЕН. ЗОН. ЗОН. ЗЕН 
ЗЕН, 3CH. 3CH , ЗЕН. ЗЕН. ЗЕН. ЗЕН. 00H 
99H.9A9H.9FCH.9FCH.9FCH 、9BCH. OBCH . 9FCH 
8FCH.3CH.3CH. 9 の FCH . 9 の FCH. 9FCH.9FCH 、99H 

232€ 


29 


235 


C196 FCFCFC99 
207 


208 C19A 073066CE 07H.30H. 66H. OCEH. CEH. 4CH 0CH. ВЕН 
C19E CE4C9C9E 

209 C1A2 46DBDB80 46H. 0DBH.0DBH.80H.00H. өөн. 00H, 0F9H 
C1A6 000000F9 

210 CIAA E80C6673 0EO0H.0CH.66H. 73H, 73H. 32H, ЗӨН. 70H 
CIAE 73323070 

211 C1B2 62DBDB9 1 62H. 0DBH. 0DBH. 01H. 00H. 00H. 00H. 9FH 
C1B6 9999999F 


12 : 
213 СІВА 973F66CE 97H. ЗЕН. 66H. OCEH. 9CEH , 4CH, 9CH . 9EH 
CIBE CE4COCOE 


214 CIC2 46C3C389 46H, ØC3H . ØC3H , 80H. 00H. 00H. 00H. UFBH 


DEOH, 0FCH, 66H, 73H, 73H. 32H, 30H. 70H 


216 CID2 62C3C301 62H.0C3H. 0C3H. 01H. 00H, 00H, 00H. 1FH 
CiD6 000000!F 


(2) 完全 な 重ね 合わ せ 

これ は , ちょ うど 背景 に パタ ー ン を は めこ む よ う な も の で 
3. 1-5 を みて くだ さい 。 まず, RGB の パタ ー ン ・ デ ー 
タ の OR を 取り , それ の “1” と “0”7 を 反転 し ます 。 こ うし 
C, 得 5 れ た デー タ の “1 "の 部 分 は , パタ ー ン の 外 枠 に な り 
ます 。 

つぎ に , この デー タ と 背景 の ゲー タ の AND を 取り ます 。 
20, さらに パタ ー ン ・ デ ー タ と の OR を と っ だ も の を 
VRAM に 書き 込み ます (リス ト 1-9) INT, 背景 に も パ 
ター ン に も 影響 を 与 を な い 重ね 合わ せ が で きま す 。 しかし, 
その 反面 。 速度 が 遅く な る と いう 欠点 を 持っ て いま す 。 反 転 
デー タ は , 最初 か ら 5 持っ て も 良い ト の で す が , ここ で は cpl 
命令 で 作っ て いま す 。 

(3) 背景 と 移動 物 の VRAM を 分 離す る 

VRAM は , R・G・B の 3 プレー ン が 独立 し て いま す 。 Z 
IC, 背景 を VRAM 1 枚 で 表現 し て 残り の 2 枚 で 移動 物 を 
描く と いう よう な 方 法 が 考え られ ます (も ちろ ん 逆 も 可 )。 
1-6 の パレ ッ ト 番 号 0 と 1 の 部 分 の RED と GREEN を 
注目 し て くだ きい 。 両方 と も “0”" に な っ て いま す 。 これ は , 
RED t GREEN に 関係 な く BLUE に よっ て の み 色 を 支配 
で きる と いう こと を 意味 し て いま す 。 そこで , ここ で は この 
BLUE の プレ ー ン (パレ ッ ト 0 と 1) だ け を 背景 に 割り 当 
て て 2 色 で 表現 し ます 。 


RED > GREEN の VRAM に パタ ー ン を 書き 込む わけ で 
す が , パレ ッ ト 2 と 3, 4 と 5, 6 と 7 は 同じ 色 に し な けれ 
ば な り ま せん 。 なぜなら , 背景 の ある 無し , つ まり BLUEO 
プレ ー ン に よっ て , パタ ー ン の 色 が 変わ る の を 防ぐ た めで す 。 

これ で , 重ね 合わ せ を まっ た 〈 意 識 せ ず に パタ ー ン の 表示 
が で きま す 。 例 を リス ト 1-10 に 示し ます が , パタ ー ン の 消 
去 は 単純 に "0” を 書き 込む こと で 行っ て いま す 。 

この 方 式 の 長所 は 高速 ど だ た いう こと で す が , 短所 と し て は 
移動 物 に 4 色 , 背景 に 2 色 し か 色 数 が 使え な いこ と で す 。 


CED 555509 


パタ ー ン の 反転 


pattern move (and or) --- 


9C999H 


1-3 応用 テク ニッ ク 


31 


32 


の いら ーー の の づつ の 


ооо о ооо ооо ою мю юмо N = e e oe e e 
л & Q ко — & © со — O Q > Q N — UG) Oo-Xodgse 


> Cა о оосо 
So の oo つの 


+ p p P 
PP 一 


+ p > > p. 
の の つの の 


の の の の の の の の ロ の の ロ の の ロロ の の の 
の ょ の らい ーS の oo つの の ぬい の いい ーG 


の の 
зо 


つつ つの の 
の ウー の op 


Mu 
ONDAS 


oo oo - 
—®‹фд 


CD61C1 
CD8DC0 


010019 key: 
ED78 


FE32 
CA25C9 
FE34 
CA3AC9 
FE36 
CA4EC9 
FE38 
CA63C9 
FE2A 
C8 
C396C9 


3A7EC1 down: 
FE17 

0206С0 

CD8DC0 

3C 

327EC1 

CDDFC6 

C396C9 


3A7CC1 left: 
B7 

CA06C0 

CD8DC0 

3D 

327CC1 

CDDFC9 

C396C9 


3A7CC1 right: 
FE26 

D296C9 

CD8DC9 

3C 

327CC1 

CDDFC9 

C396C9 


3A7EC1 up: 
B7 

CA06C0 
CD8DC0 

3D 

327EC1 

CDDFC9 
C396C9 


9189C1 adr: 


2A7ECI 
29 


CD77C0 


cs 100р1: 


push 
1d 
add 


rev 
erase 


bc.1900H :bc=i/o port address 
а, (с) iget key (asascii code) 


・2・ :2， 
z.down 

დუ ее 
z.left 

・6・ se 
z,.right 
"გ. 


а, (XPOS) 


а 
2.Кеу 
егазе 

а 
(xpoS ) ,a 
disp 

key 


a, (XPOS) 
38 

nc, key 
erase 

a 
(xpOS),a 
disp 
key 


а, (уроѕ ) 
а 

2.Кеу 
erase 

a 
(ypos),a 
disp 

key 


bc.table 
hl. (ypos ) 
hl .hl 


d.(hl) 
hl. (xpos) 
hl.de 
de.4000H 
hl.de 

hl 

bc 


af 

adr 
ix.bwork 
bc 


22% 


C894 22C0C0 
C09D 3E02 
C89F F5 
C9A9 3E98 
C9A2 F5 
C9A3 DD7E99 
C9A6 ED79 
C9A8 03 
C9A9 0023 
C9AB DD7E99 
C9AE ED79 
Севе өв 
C9B1 DD23 
C9B3 210008 
C9B6 09 
Сев? 44 
C9B8 4D 
C0B9 LI 
C9BA 3D 
C9BB C2A2C0 
COBE LI 
C9BF 010000 
C9C2 3D 
C9C3 C29FC9 
C8C6 СІ 
C8C7 2AC9C9 
C8CA 7С 
C9CB FECO 
C9CD D2DDC9 
сөре 210040 
C9D3 09 
C8D4 E5 
C0D5 СІ 
C9D6 111000 
C9D9 19 
C9DA C395C9 


CODD LI 
CODE C9 


CODF F5 

COE0 CD77CO 
C0E3 21B2C1 
COE6 DD2132C2 
CÓEA C5 

C9EB E5 

COEC 111000 
COEF 19 

COF0 EB 

C9F1 212800 
C9F4 09 

C8F5 223FC1 
CeF8 EI 

COF9 FD2112C2 


C9FD 3E02 
COFF F5 
C199 3E98 
C102 F5 
C183 ED78 
C105 007700 
C108 FDA600 
C10B B6 
C19C ED79 
C19E 03 
C19F DD23 
С111 D5 
C112 FDE5 
C114 111000 
C117 FD19 
C119 ED78 
C11B 007700 
С11Е FDA600 
C121 FDEI 
C123 DI 
C124 EB 
C125 B6 


100р2: 


100р3: 


td: 


quiti: 


disp: 


loop4: 


(td+1 ) 、hl 
a.2 


hl.0800H 
hl.bc 
b.h 

c.l 

af 

a 

nz, 100P3 
af 
bc.9999H 
a 
nz,loop2 
bc 
hl.(td*1) 
а.һ 

Өсөн 
nc.quitl 
hl.4000H 
hl,bc 

hl 

bc 

de, 18H 
hl,de 
1oop1 


af 


af 

adr 
hl,pdata 
ix,bwork 
bc 

hl 
de,9919H 
hl,de 
de,hl 
h1,0028H 
hl.bc 


(tdl*1),hl 


hl 


iy,revdata 


1-3 応用 テク ニッ ク 


;buck ground work area 


ігеуегзе pattern data іп іу 


:read buck ground 

;Store bwork 

; (buck ground) and (revdata) 
;or pdata 

:Print 

;increment address of угат 
jincrement address of bwork 


save revdata 


;revdata*16 in iy 


ireload revdata 


23€ 
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159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


222 


223 


224 


ЕВ 
ED79 
eB 

23 

13 
DD23 
FD23 
E5 
210008 
99 

44 

4D 

El 

F1 

3D 
C292C1 


FEC9 
D25EC1 
210040 


C3EACO 


EI 
Fl 
C9 


21B2CI 
1112C2 
0620 
ES 

D5 

7E 
112000 
19 

86 

19 

86 

ЯР 

р1 

12 

Е1 

13 

23 
19EE 
C9 


00002800 
50007800 
A000C800 
F0001801 
49916891 
9001B801 
E0010802 
30025802 
80024802 
D002 

F8022003 
48037003 
9803C003 


tdl: 


quit2: 


rev: 


jmpl: 


XPOS: 
УРо5: 


table: 


defw 


defw 


de,hl 
(c).a 

bc 

hl 

de 

ix 

Тар 

hl 
hl.0800H 
hl.bc 


bc,0000H 
a 
nz,loop5 
bc 

hl 
hl.Ctdl*1) 
a.h 

есен 
nc.quit2 
h1.4000H 
hl.bc 

hl 

bc 

hl 
de.19H 
hl .de 
1oop4 


hl 
af 


hl ,pdata address of pattern data in hl 
de.revdata :address of reverse data in de 
b.32 iset counter 
hl 
de 
а. (hl) ;pattern data in a 
de.32 
hl ,de :pdata+32 
(hl) :blue or red in a 
hl.de :pdata+64 
(hl) 
reverse 
de 
(de).a store reverse data 
hl 
de 
hl 
Jmp1 


9.40,80.120,160.200.240.,280,320.360 


400.440,480,520,560,600,640,680,720 


760,800.840.880,920,960 


2 < 


1-3 応用 テク ニッ ク 


999A3F3F 99H.9AH, ЗЕН, ЗЕН, ЗЕН, ЗОН, 3DH , ЗЕН 
3F3D3D3F 

ЗЕЗСЗСЗЕ ЗЕН, 3CH, 3CH, ЗЕН, ЗЕН, ЗЕН, ЗЕН, 00H 
3F3F3F00 

96A9FCFC OOH, BAGH, 9FCH, 9FCH , 9FCH, 9BCH, 9BCH , 9FCH 
FCBCBCFC 

FC3C3CFC 9FCH,3CH, 3CH , 9FCH , 9FCH , ВЕСН, 9FCH, 99H 
FCFCFC99 


973966CE 07H, 30H, 66H , ØCEH , 9CEH , 4CH , 0CH, BEH 
CE4C9C9E 

46DBDB89 46H, 0DBH, 9DBH , 80H, 00H, 00H, 00H, OF9H 
999999F9 

E99C6673 BEH, СН. 66Н,73Н.73Н.32Н,30Н,70Н 
73323070 

62DBDB01 62H, 0DBH, 9DBH , 01H, 00H, 00H, 00H, 9FH 
0000009Е 


973F66CE 07H, 3FH, 66H, BCEH, QCEH, 4CH, СН. ЕН 

CE4C9C9E 

46C3C380 46H, 0C3H, 0C3H, 80H, 00H, 00H, өөн, OFBH 
000000Ғ8 

E9FC6673 . OEOH, OFCH, 66H, 73H, 73H, 32H, 30H, 70H 

73323070 

62C3C39 1 62H、9C3H , 9C3H, 01H, 00H, 00H, 00H, 1FH 

9000001F 


revdata: 92. 


bwork: 96 


CED パレ ッ ト ・ コ ー ド 


1 ; 

2 В --- Separate vram --- 

2 севе ; org 9C999H 

6 C889 CD3eC1 ` call Plt 

7 ; 

8 C003 919919 key: 1d bc,1988H :ხC=1/0 port address 
9 C806 ED78 in а, (с) iget key (asascii códe) 
18 ; 

11 C008 FE32 cp i: d ER 

12 C@@A CA22C9 jP z,down 31f a=2 then down 

13 C00D FE34 СР 4: 4“ 

14 CA3AC0 z,left i1f a=4 then left 
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36 


FE36 
CA51C8 
FE38 
CA69ç8 
FE2A 
C8 
C393C8 


3A44C1 
FE17 
D203C8 
CD96C9 
3C 
3244C1 
2178C1 
CDDAC@ 
C393C9 


3A42C1 
87 
CA03C0 


C383c8 


3A42C1 
FE26 

D283C8 
CD96C8 


CDDAC@ 
C393C9 


3A44C1 
B7 

CA83C8 
CD96C@ 
3D 

3244C1 
2178C1 
CDDAC@ 
C393C@ 


9146C1 
2A44C1 


right: 


100р2: 


100р3: 


а, (уроѕ) 
23 

nc, key 
erase 

a 
(ypos),a 
hl ,pdata 
disp 

key 


a,(xpos) 


a 
2.Кеу 
егазе 

а 
(xpos),a 
hl,Pdata 
disp 

key 


a,(xpos) 


(xpos),a 
hl ,pdata 
disp 
key 


a, (ypos) 


a 

2.Кеу 
егазе 

а 
(ypos),a 
hl, pdata 
disp 

key 


de,8888H 
hl,de 
b,h 

с.1 


2,2 


hl,0800H 
hl.bc 
b,h 


2-6" 
f a=6 then right 
გ. 


f as8 then up 
A 


f y>23 then key 
attern erase 

=y+1 

ave y position to a 


iaddress of pattern data in hl 


¿pattern display 


ix position in a 
;x=0 7 

i1f x=0 then key 
;Pattern erase 


f x>38 then key 
¿pattern erase 
1X=X+1 


:V position in a 
;y=0 7 

214 ys8 then key 
;Pattern erase 
sysy-l 


;hl=y Position / 8 


ihlsx position / 8 


3vram base address (green) 
address 


isave address of vram 


;set counter 

;Set counter 

iclear а 

3increment address of угат 


idecrement address of vram 


つら づく 


一 一 一 一 一 一 一 一 一 一 


C39AC9 


F1 
c9 


F5 
CD89C9 
2178C1 
C5 


010010 
3E92 


td: 


+41: 


で ,1 

af 

a 
nz,loop3 
af 
bc,0000H 


hl,(td+1l) 
6.h 
nz,quitl 
hl,4000H 
hl,bc 


af 

adr 

hl ,pdata 
bc 

hl 
de,0010H 
hl,de 
de,hl 
h1,0028H 
hl,bc 
(tdl*1),hl 
hl 


h1,88800H 
hl,bc 
b,h 

で ,1 

hl 

af 


a 
nz,loop6 
af 
bc,8008H 
a 


nz,loop5 
bc 

hl 
hl,(tdl1*1) 
6,h 
nz,quit2 
h1,4000H 
hl, bc 

hl 

bc 

hl 

de, 18H 
hl,de 
loop4 


hl 
af 


bc, 1000H 
a, 02H 


1-3 応用 テク ニッ ク 


saddress of next line 


iCounter-1 


iCOunter-1 


iaddress of vram*28h in hl 


¿next base address In bc 


iload pattern data 
iprint pattern data 
iload pattern data 


iincrement address of pattern data 


;Set palet (blue) 


FIS 


37 


ED79 


94 iSet palet (red) 
3ECC 

ED79 

94 b ;Set palet (green) 
3EF9 

ED79 

59 


вове хроѕ: 
(111) ypos: 


00002800 table: 9,48,80,120,160,200,248,280,320,368 
50007800 

A999C899 

F9991891 

40016801 

9091B801 400, 440, 480,520.560,600.640, 688,720 
E9919892 

30025802 

80024802 

0002 

Е8022003 760,800 , 840 , 880,920, 960 

48037003 

9803C803 


91810181 81H, 81H, 81H, 81H, 01H, 21H, 33H, 23H 
01213323 

26272667 26H,27H, 26H,67H, 66H, 66H, 8E2H, 8C8H 
6666E2C9 

08800080 BAH, зен, вен, 80H, өөн, 88H, BCH, CH 
99889C9C 

8898889A 88H, 08H, 88H, BAH, 8AH, 4AH, 4BH, 83H 
8A4A4B93 


91999199 ВІН, 00H, 01H, 80H, 81H, 38H, 83H, 33H 
91300333 

37В7ВЕВЕ 37H, BB7H, BBFH, ВЕН, 8BFH, 9BEH , 32H, 9C8H 
BFBE32C8 

80008000 88H, 00H, 80H, 68H, 80H. CH. COH, 8CCH 
888CC8CC 

ECEDFDFD BECH, ВЕРН, ВЕРН, 9FDH , 9FDH , 7DH , 4CH, 83H 
FD7D4C93 


1-3-2 PCG に よる スク ロー ル 


ここ で は テキ スト 画面 の 逆 ス クロ ー ル だ け を と りあ げ ま 
す 。 逆 スクロール の 原理 は 図 1 7 7 に 示す と ぉ おり で す 。 リ ス 
F 1-11 は 'mstart と "mend' に それ ぞ れ マッ プ の スタ ー ト ・ ア 
ドレ ス と エン ド ・ ア ドレ ス を いれ て コー ル し ます 。 マ ッ プ に 
は , 40 文字 分 ち も 1 ラ イン と し て , ASCII ユー ド を 入れ て 
だ さい 。 


М 


1-3 応用 テク ニッ ク 


信行 ご と に , МІ, М2 Ma と な っ て い 
る 。 

① 各 行 を | 行 分 下 へ ずら す 。 

② あ いた 最上 行 を マッ プ か ら の | 行 で う 
め る 。 

③ こ れ を くり 返す 。 
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@ c co — O> Q > Q to — 


ы- 


2A47C9 
E5 

91BF33 
21E733 


1E19 
1628 
cs 
ED78 
44 
4D 
ED79 
CBA9 
3E27 
ED79 
C1 
eB 
2B 
15 
28ED 
1D 
29E8 


ЕІ 
0910038 
1628 
7E 
ED79 
CBA@ 
3E27 
ED79 
CBE9 
23 
93 
15 
29F9 


ED5B49C8 
7A 

94 

29C1 

7B 

95 

20BD 

C9 


99D9 
eere 


loopl: 


--- SCROLL (PCG) --- 
9C999H 


hl, (mstart) 
hl 

bc, 33BFH 
h1,33E7H 


e,25 
d,49 
bc 

а, (с) 
b.h 
C.l 
(c),a 
4.b 
a,27H 
(c),a 
bc 

bc 

hl 

d 
nz,loop3 
e 


nz,loop2 


hl 
bc,3080H 


nz, loop4 


de, (mend) 
a.d 

h 
nz,loopl 
a,e 

1 
nz,loopi 


9D999H 
9F999H 


¿start address of the map 

¿save start address of the map 
:get address Of vram (х=39:у=23) 
iput address of vram (xs39:ys24) 


;y colume in e (counter) 

:X colume іп d (counter) 
isave address of vram to bc 
iascii code in a 

iprint address in bc 


;Print 

iattribute address 
;attribute code in a (normal,ramcg) 
;print 

iload address of map 
iprint address-1 
iload address-1 

:X colume-1 ind 
sif x<>0 then 100p3 
ју colume-1 ine 
sif y く >9 then loop2 


iload put address of vram to hl 
ibase address of vram 

;x colume іп d (counter) 

¿(put address of vram) іп a 
sprint 

sattribute address 

;attribute code in a (normal,ramcg) 
sprint 

itext address 

іриі address of vram+1 

зей address of vram+1 

іх colume-1 

iif x<>8 then loop4 


¿high address of end of the map 


sif a<>@ then loopl 


2-1 PSET 
2-2 LINE と CIRCLE 
2-3 PAINT 


2 
=. 
p 
E 
2 
y 
С? 
А 


本 章 で は , BASIC に ある よう な LINE や 
PFAINT を 作 つ て み ま す 。 これ わら は , プロ ブラ 
ム そ の も の より も アル ゴリ ズム が 重要 な の で , 
BASIC で 記述 し て 例 を 示し , それ を マシ ン 語 
化す る よう に し ます 。 な お , 簡単 お だ た め ブ ラ 
フィ ッ ク の モー ド は 640 x200 ド ッ ツ ト に 固定 し 
ます 。 
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PSET は グラ フィ ッ ク の 最も 基本 的 な も の で あり , 最も 
ハー ドウ ェ ア に 近い も の と 言え ます 。 したがって, この ルー 
チン さえ ぇ あれ ば , 後述 する LINE や CIRCLE な ど を 他 機 種 
^ へ 移植 する の は 簡単 な こと で す 。 ま た だ , CPM 上 の 高級 
言語 で も グラ フィ ッ ク を 使え る よう に な り ま す 。 


2-1-1 アルゴ リズ ム 

PSET ルー チン で は , まず 始め に 絶対 座標 か ら 6 実際 に 書 
き 込 む VRAM の アド レス を 求め ゆな けれ ば な り ま せん 。 と こ 
A, X 1 は PC-8801 や FM-7 t VRAM の 並び か た が 異 
な り , この 変換 は これ ら の マシ ン よ り 少 々 複雑 で す 。 

まず , 与え られ た X,Y か ら 61NT(X/8), INT(Y/8) と し 
て キャ ラク タタ 座標 を 求め ゆま す 。 こ れ よ 90, 左上 端 か ら の オフ 
セッ ト 値 は , 


| INT(X/ 8)+INT(Y/8)*80 | 


で 求め られ ます 。 こ の 式 は 図 2-1 の 斜線 部 の よう な アド レス 
を 求め る も の で す 。 後 は Y 方 向 に &&H800 ずつ 増加 し て い 
る の で , アド レス を 求め る 式 は 次 の よう に な り ま す 。 


| INT (X/8) +INT(Y/8) *80+ (Y MOD 8) * &H800 | 


この 式 か 6 求 ま っ た 値 に &H 4000 を 加え る と BLUE の 
VRAM, š 6 C&H 4000 を 加え る と RED の VRAM, 5 
ら に 加え る と GREEN の VRAM の アド レス に な り ま す 。 
この 式 が 正しい か どう か は , リス ト 2-1 で 試し て みて くだ 
きい 。 


«RD VRAM の アド レス 


8 ドッ ト 640X200 ド ッ ト ( 値 は 16 進 表示 ) 


0851 0852 


1052 


1051 


1000 INIT : VIDTH 80 : CLS 4 
1010 DEFINT A-Z 

10280 : 

1030 LABEL "LOOP" 

1040 INPUT "X0,Y0";X0.YO 


1056 IF (XØ > 639 OR XØ < 0) OR (Үй > 199 OR YO < 0) 
THEN PRINT "Error !" : GOTO "LOOP" 

1060 VRAMADR= INT(X9/8 )+INT(Y9/8)x89+(Y9 MOD 8)x&H899 

1078 OUT VRAMADR*&H4090 , &HFF ”BLUE 

1080 OUT VRAMADR+&H8999.9 : * RED 

1090 OUT VRAMADR+&HC999.9 : ”GREEN 

1100 GOTO "LOOP" 


2 ロン の ラム 
絶対 座標 か ら 6 VRAM アド レス を 求め ゆる プロ グラ ム は , 一 


見 複雑 を う で す が , 以外 に 簡単 に マシ ン 語 に で きま す 。 その 
プロ グラ ム が リス ト 2-2 C+, bc レジ スタ に X 座標 ,de 


2-І PSET 
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tO o — O) Q h @ o — 


C999 


C999 CB38 
C992 
C004 
C996 
C008 
C99A 


Ceec 
C99D 
C99E 
C919 
C91 1 
C912 
C914 EB 
C015 
C916 
C817 
C018 
C819 
C91A 


C91B 
C91C 
C81D 
C@1E 
COIF 


C022 09 
C023 C9 


レジ スタ に Y 座標 を 入れ て 'calcva を コー ル す る と hl レジ 
スタ に VRAM アド レス を 入れ て 返っ て きま す 。 


1 === calc. угат address --- 
: entry bc := x 
de := y 
returns hl <- vram address 
modifies ,bc .de,hl 


calcva: 


・ bc:=int(x0/8) 


: de:=int(y9/8)x8 
: a:=y0 mod 8 
: #2 


: #4 
: #8 


: #19 
: hl:=int(y0/8)%80 


: de:=(y0 mod 8)*&H800 


; hl:=int(x9/8)+int(y9/8)x89 
+(y9 mod 8)x&h899 


リス ト 2-3 は PSET ルー チン の 本 体 で す が , ここ で は ビ 
ッ ト を ON また だ は OFF する た め に プロ グラ ム 自 身 を 書き 換 
元 如 上 中 与 姑息 (?) な テク ニッ ク を 使っ て いま す 。 ビット 
の ON, OFF に は SET, RES 命令 を 使っ て いま す が , これ 
6 の OP コー ド は 図 2-2 の よう に な っ て いま す 。 た だ ただし, こ 
の 図 は SET, RES 命令 の 一 部 で す 。 こ こ で は e レジ スタ に 
VRAM の デー タ を 入れ て いる の で , この レジ スタ に 対し て 
ビッ ト の セッ ト , リセ ッ ト を 行い ます 。 こ こ で 何 ビ ッ ト 目 を 
操作 する か と いう と , これ は 次 の よう に 又 座標 か ら 求 め ら れ 
iT. 


2-| PSET 


X MOD 8 


一 
—GmQo-J00 0t 


12 


C999 


C199 
C100 


C103 
C105 
C107 


C108 


C108 
C19C 
C118 
C113 
C114 
C116 
C117 
CHA 
C11C 


C11D 
CIIE 
СПЕ 
С121 
С124 
С127 
C12A 
C12B 
C12C 
C12D 
C12E 
C130 
C133 
C134 
C136 


C139 
C13C 
C13D 
C13E 
C13F 
C141 
C144 
C147 
C148 
C149 
C14B 
C14E 
C151 


C308C1 
0000 


0000 
96 


ED4B03C1 
ED5B05C1 


F683 
3277C1 


110040 
19 


1 
1 
1 


alcva 


–__ 


subroutine 
entry 


*pset' 
(x8) 
(y0) 
(color) 
modifies 


9C999H 


9C199H 
PSet 


9999H 


9999H 
6 


$ 

bc, (x0) 
ае. (y9) 
hl, 639 
a 

hl, bc 
€ 

hl 、199 
hl ,de 
€ 

a.c 


7 ; 
(xmod8),a 


თ 
თ 


(056L).8 : 
მჯ 

83H : 
(@reset).a 


de,4000H ; 
hl,de 

b.h 

Cl 

е, (с) 

blue 

de, 4000H ; 
hl,de 

b,h 

е. (C) 

red 

de, 4000H ; 
hl.de 


:= point x 


point y 
dot color 


af 、bc.de、hl 


a:=cpl(x0 mod 8) 


5 Shift left 3 bits 


or 11999911b 


or 19999911b 


blue 


red 


green 


52525 


45 


46 


44 
ED58 
C36AC1 


3A07C1 
CB47 
2817 
1810 
3A07C1 
CB4F 
289E 
1807 
3A07C1 
CB57 
2805 


b,h 
e, tc) 
green 


2,(C010L) 


а.(со1ог) 
1.а 
z.resbit 
setbit 
a,(color) 
2,a 
z,resbit 


9CBH 
1 


[elvé 


ØCBH 
1 
(c). e 


. res n:e 


2-І PSET 


と ころ が , VRAM の ビッ ト の 並び 方 は 図 2-3 の よう に な 
っ て お り , 図 2-2 の ビッ ト 指 定 と は 逆 に な っ て いま す 。 その 
г», CPL 命令 で 1 と 0 を 反転 し て いま す 。 


SEED VRAM の ビッ ト の 並び 方 
LSB 


MSB 
0 1 2 き 4 5 6 7 


この ルー チン で は , 最初 に 座標 値 の チェ ッ ク を 行っ て いま 
す が , 色 コ ー ド (color) に つい て は チェ ッ ク し て いま せ 
ん 。 色 コー ド は 下位 3 ビッ ト だ けし か 見 て いな い の で , kt 
えば , 81H と いう 値 を 入れ て も 青 の ド ッ ト を 打ち ます 。 

この PSET ルー チン に は , ワー ク ・ エ リア の xx 0, V 0 に 
座標 を セッ ト し て "pset' ま た は set 1 も コー ル す る , bc レジ 
スタ に XX 座標 , de レジ スタ に Y 座 標 を 入れ て set 2? を ュー 
ル す る , さら 6 に 座標 値 の チェ ッ ク を し な い 'pset 3 ' を や ユール 
する と いう 3 種類 の エン トリ ー ポ イン ト が あり ます 。 後述 す 
る LINE, CIRCLE, PAINT で は それ ぞ れ この ラベ ル 名 で 
ョ コール し ます 。 
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2-2 | LINE こ とこ CIRCLE 


ここ で , 紹介 する LINE は BASIC の LINE y LIR 
な り , ボッ クス を 描い た り 塗 つぶ し た りす る こと は で きま せ 
А. if, 色 も タイ ルン パタ ー ン で は な く 1 色 で 指定 し ます 。 
CIRCLE も 非常 に 単純 な も の で , 椿 円 や 円 弧 を 描い た りす 
る 芸当 は な く 〈, 単に 円 を 描く だ け で す 。 


2 点 の 座標 が 与え を られ た と き に , その 間 を 結ぶ , つま り 線 
分 を 引 《 に は いく つか の 方 法 が あり ます 。 い ちば ん 簡単 な の 
は , 直線 の 方 程 式 , 


y デ ax 十 b 


Фа, b を 


(у-у)-У  Yi(x—x) 


か ら 求 め , x の 値 を XI か ら Xx まで 変化 させ Y の 値 を 求め 
な が ら 点 を 打っ て いく こと で す 。 ところが, これ で は 求 ま っ 
た 値 は ふつ う 実 数 値 と な り , 画面 の 座標 の よう に 整数 値 に な 
る こと は めった だ に あり ませ ん 。 こ の ため , この アル ゴリ ズム 
どおり に マシ ン 語 化す る に は 実数 演算 が 必要 に な り , 大 変 面 
倒 に な り ま す 。 

ここ で 使う アル ゴリ ズム は DDA に よる も の で , これ だ と 
整数 演算 の み で LINE を 引く こと が で きま す 。DDA と いう 
の は デジ タル 微分 解析 法 (Digital Differential Ana- 
lyze) の 略 で 線形 微分 方 程 式 を 解く た め に 微積分 を アナ ログ 
計算 機 で 行う 基 ほ な っ た アル ゴリ ズム で す 。DDA に よる ア 
ル ゴ リ ズム に は 方 向 , y 方向 の うち , 大 きい ほう の 座標 は 


1 ずつ 変化 させ, も う 一 方 の 座標 は 真 の 値 に 最も 近い 整数 値 
を 選ぶ 「 単 純 形 DDA] t x, 両方 向 に DDA 演 算 す る 

「 対 称 形 DDA」 が あり ます 。 こ こ で は 前 者 の 単純 形 DDA 
を 使い ます 。 

м (XI уі) OA (X2 у?) へ 線 を 引く こと を 考え ま 
+ ( 図 2 - 4 )。 こ の 図 で は , x: >X, y2 >y C, な お か 
っ つっ 4x>4y で すか ら , XX に つい て は 単純 に 1 ずつ 加え て 
いき ます 。 7 座標 の 変化 は 次 の よう に し ます 。 


«EP 820-9» 


(xz,yz) 


Ay(ya-yi) 


' 
by) ーー 4 — 


まず , EE と いう 変数 を 用 意 し , 座標 が 1 増加 する ご と 
に 4y を 加え ます 。 これが 4x よ り 大 きく な っ た だ ら 7 座 標 
を 1 増加 る せ , EE か ら 4x を 引き ます 。 こ れ を Xi =x 
に な る まで 繰り 返し ます 。 

これ まで は , Ax» 4y の 場合 の 説明 で し た が , Ax «A 
y の 場合 は , y に つい て 1 ずつ 増加 きせ て x に つい て は 同様 
の 演算 を も し て 求め ます 。 ま た , х <x や yz < yi QIR 
fi, 1 加え る と ころ を 1 減じ れ ば よい で し ょ ЭЗ, 

以上 , 見 て きた よう に 単純 形 DDA を 使っ た LINE ルー チ 
ン で は , まず 2 点 の 座標 か 6 場合 分 け を し ます 。BASIC で 
書い た プロ グラ ム を リス ト 2-4 に , マシ ン 語 の プロ グラ ム 
を リス ト 2 -5 に 示し ます 。 


2-2 LINE と CIRCLE 
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1000 INIT : WIDTH 80 : 
1010 DEFINT A-Z 


CLS 4 


1830 INPUT "XS.YS":XS.YS 
1040 INPUT "ХЕ, ҮЕ": ХЕ, ҮЕ 


1060 DX=ABS(XE-XS) : DY=ABS(YE-YS ) 

1070 SX=SGN(XE-XS) : SY=SGN(YE-YS) 

1888 IF DX < DY 

THEN SWAP Х5.Ү5 : SWAP ХЕ,ҮЕ : SWAP DX,DY : SWAP SX.SY : FLAG--1 


1188 EE-DX/2 
1118 LABEL"LOOP" 


1120 IF FLAG THEN PSET(YS,XS,7) 
ELSE PSET(XS.YS,7 ) 
1139 IF XS=XE THEN END 
1140 XS=XS+SX 
1150 EE=EE+DY 
1160 IF EE>=DX THEN EE=EE-DX : YS=YS+SY 


GOTO "LOOP" 


subroutine 'line' --- 
entry = start point x 
= start point y 
= end point x 
:= end point y 
(color) := 
modifies af,bc,de,h 


dot color 
1 


° o O Q p QO N ~ 


9C198H 
9C193H 
9C19CH 
9C197H 


9C200H 
C316C2 Y line 


218188 Һ1,1 SX:= 

2211C2 (sx),hl ; Sy:=1 

2213C2 (sy) ,hl 

AF a ; fl:=0 

3215C2 (f1),a 

2A97C2 hl,(xe) ; dx:sabs(xe-xs) 
ED5B83C2 de, (х5) 

ED52 hl,de 

3807 пс, 1іпе1 ; if хе<х5 then 
91FFFF bc,8FFFFH H Sx:=-1 
ED4311C2 (sx),bc 

CDF4C2 abs 

228BC2 (dx), hl 

E5 hl 

2A89C2 hl, (ye) ; dy:=abs(ye-ys) 


ED5B05C2 
ED52 
3007 
91FFFF 
ED4313C2 
CDF4C2 
229DC2 
D1 

ED52 
383D 
2A0BC2 
ED5B8DC2 
229DC2 
ED539BC2 
2A03C2 
ED5B05C2 
2205C2 
ED5303C2 
2A07C2 
ED5B09C2 
2299C2 
ED5397C2 
2A11C2 
ED5B1 3С2 
2213C2 
ED5311C2 
3601 
3215C2 
2A9BC2 
CB2C 
CBID 
228FC2 
2A03C2 
ED5B05C2 
3A15C2 
B7 

2801 

EB 
2203C1 
ED536CC1 
CD08C1 
2A03C2 
ED5B97C2 
B7 

ED52 
282F 
2A93C2 
ED5B11C2 
19 
2203C2 
2A9FC2 


ED5B9DC2 - 


19 
220FC2 
ED5B9BC2 
B7 

ED52 
38BD 
220FC2 
2A95C2 
EDSB13C2 


de, (ys) 
hl.de 
nc, line2 
bc,9FFFFH 
(sy) ,bc 
abs 
(dy ) ,hl 
de 
hl,de 
c,11 
hl, (dx) 
de, (dy) 
(dy) ,hl 
(dx) ,de 
hl,(xs) 
де, (y5) 
(ys),hl 
(xs),de 
hl, (xe) 
de, (ye) 
(ye) ,hl 
(xe),de 
hl, (sx) 
de, (sy) 
(sy) ,hl 
(sx),de 
a,l 
(fl),a 
hl, (ах) 
h 

1 

(ee) ,hl 
hl.(xs) 
de, (ys) 
a, (fl) 


a 
z.12 
de,hl 
(x9 ) ,hl 
(y9) ,de 
Pset 
hl.(xs) 
ае, (xe) 
a 
hl.de 
z,lexit 
hl, (xs) 
ае, (5х) 
hl.de 
(xs) .hl 
hl, (ее) 
de. (dy) 
hl.de 
(ee) .hl 
de, (ах) 
a 
hl,de 
c.15 
(ee).hl 
hl.tys) 
де, (5у) 
hl.de 
(ys).hl 
15 


გ.ხ 
80H 
C,absex 


h,a 
a,l 


l.a 
hl 
a 


2-2 LINE £ CIRCLE 


1f ye<ys then 
5V:=-1 


; hl:=abs(ye-ys) 


; de:=abs(xe-xs) 


1f xd<yd then 
; Swap 


if fl<>0 then 
D x8:-2ys 
E у0:-х5 


; else 


Н X9:=XS 
y9:=yS 


; call pset (x0.y0) 


if xs-xe=0 then return 


if ее›=ах 


goto 15 


1 ее: =ee-dX 
1 ys:=ys+*sy 


: goto 15 


; hl:=abs(hl) 


; саггу:=@ 


51 


52 


2-0-2 CIRCLE 


円 を 描く に も いろ いろ な 方 法 が あり ます 。 実数 演算 を 使っ 
て も 良い な ら 円 の 方 程 式 , 


| x2+y2=r2 | 


УТ 


ELT, x の 値 を Tr か ら ーr ま で 変化 きせ な が ら 求 め る 方 法 
が あり ます 。 ま だ た だ, 媒介 変数 の を 使っ て 円 周 上 の 点 を 回 転 
る せな が ら 描 いて いく 方 法 も あり ます 。 こ の 方 法 で 円 を 描く 
場合 , 原点 を 中 心 と し た 点 Pi を 左 回 り に の だ け 回 転 き せ 


た 点 Pu は 
Xi+1=Xi* cos Ü—yi* Sin の 
VI+1=XI' SIn-- yi* cos の 


と し て 求め られ ます ( 図 2-5)。 


«HEP поета 


Pi(r・cos9 rsinb) 


Po(r, 0) 
ここ で の が 微小 な ら ば , 


sin0=0, cos0=1 


と な り , これ より , 


Xi+1=xi — бу 
yix17 хі t yi 


と な り ま す 。 と ころ が この 近似 は 意外 に あら っ ぽく この 式 か 
6 円 を 描こ うと する と , 半径 が だ ん だ ん 大 きく な り , うず ま 
き 状 に な っ て し まい 円 に は な り ま せん 。 そこ で この 誤差 を 補 
正す る た め に , 第 2 式 の xi を xii に 置き 換え ます 。 結 
А, 式 は 次 の よう に な り ま す 。 


Xi+1=Xi— бу 
yi+l 三 OXi+l 十 yi 


これ を 1 周 す る まで 繰り 返せ ば よい こと に な り ま す 。 ここ 
0 の 値 の 決め 方 で す が , 2" と すれ ば マシ ン 語 で も 乗算 を 
せ ず に , シフ ト 演 算 だ け で で きま す 。 

リス ト 2-6 は この 方 法 で 円 を 描 じ た も の で す 。9 の の 値 
(リス ト 中 で は 変数 E) 2 2-8 (I) に し まし た 。256 CI 
る と いう の は マシ ン 語 で は 簡単 に か け ま す (符号 な し の 場 
合 )。 た と えば , de レジ スタ の 値 を 256 で 割る プロ グラ ム は 
次 の よう に な り ま す (小数 部 は 無視 ) 。 


ld еа 
ld d, 0 


この プロ グラ ム で は , 座標 原点 が (0, 0) で は な く , 
(x0, Y 0) な の で 1200 行 で 座標 変換 し て いま す 。 ま 
k, 又 1 の 640 х 200 ドッ ト ・ モ ー ド で は 画面 の 縦横 比 (7 
スペ クト 比 ) が 約 又 : ヤ =1 : 2 な の で , 1200 行 で は この 
こと も 考慮 に 入れ て いま す 。1070 行 で は BASIC の CIR 
CLE 命令 の 半径 が Y 方 向 を 基準 に ほっ て いる た だ め 半 径 R を 
2 倍 に し て いま す 。1110 行 の ルー 回 数 は 経験 値 で す 。 こ 
の プロ グラ ム を 実行 し た 後 , BASIC の CIRCLE 命令 を 実行 
し て みる と ほぼ 重なる こと が わか る と 思い ます 。 

この プロ グラ ム を この まま マシ ン 語 化し て も いい の で す 
が , も う 一 歩 高 速 化 の た ゅ に 工夫 し て み ま し ょ 5, РС-8801 


2-2 LINE と CIRCLE 
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$ MSX な ど で CIRCLE 命令 を 実行 する t, 同時 に 8 ドッ 
ト ず つっ 点 を 打っ て いま す 。 こ れ は 図 2-6 の よう に , 円 の 対称 
性 を 利用 し た も の で す 。 ま た 半径 の 小さ な 円 の 場合 , ATR 
%7: XI k хы 。 yi E yii が 同じ 値 に な っ て し まう 
こと が 多く な り ま す 。 を こ で 前 に 求め た 座標 値 と 新しく 求め 
た 座標 値 が 一 致し て いれ ば 何 も し な い , と いう よう に し ま 


P 4(-x,y) 


Ps(-x,-y) 


INIT : VIDTH 80 : CLS 4 
1020 INPUT "XO. YO": XO. YO 
1030 INPUT "RADIUS";R 

1840 INPUT "COLOR":C 


1050 : 

1060 E-1/256 

1070 X=R+R 

1080 Y=9 

1090 LOOP=9 

1100 : 

1110 WHILE LOOP < 1616 
1120 GOSUB "pset" 
1130 X=X-ExY 

1149 Y-ExX«Y 

1150 LOOP=LOOP+1 
1160 WEND 

1170 END 

1180 : 

1190 LABEL "pset" 

1200 XT=XO+X : YT=YO+Y/2 
1218 PSET (XT,YT,C) 


RETURN 


以上 の 2 点 を 加味 し た も の が , リス ト 2-7 で す 。 こ れ を マ 
シン 語 化し た の が リス ト 2-8 (+, ここ で 注意 し て ほし い の 
が , 座標 値 を 計算 する 式 は 整数 演算 で は な 〈, 固定 小数 点 演 
算 で ある と いう こと で す 。 も と も と 乗算 部 分 は 小数 点 以 下 の 
部 分 で あり , これ が オー バー フロ ー し た と きのみ (キャ リー 
フラ グ が 立っ た と きのみ ) “піх, inty' の 値 が 変わ っ て いく 
oci. 


INIT : WIDTH 80 : CLS 4 


INPUT "X0, YO"; XO. YO 
INPUT "RADIUS";R 
INPUT "COLOR"iC 


E=1/256 
X=R+R : Y=0 
XB=X : YB=Y 
1.ООР=@ 


GOSUB "pset" 

WHILE LOOP < 202 
X=X-ExY 
YsExX+Y 
LOOP=LOOP+1 
GOSUB "compare" 
IF FLAG=1 THEN 1190 
GOSUB "pset" 

МЕМО 

END 


LABEL "compare" 


IF INT(X)=INT(XB) AND INT(Y)=INT(YB) 
THEN FLAG=1 : RETURN 
XB=X : YB=Y ` 
FLAG=0 
RETURN 


LABEL "pset" 

XT=X0+X : YT=YO+Y/2 
PSET (XI.VI.C) 
XT=XO+X : YT-YO-Y/2 
PSET (XT,YT,C) 
XT=XO+Y : YT=YO+X/2 
PSET (XT,YT,C) 
XT=XO+Y : YT=Y0-X/2 
PSET (XT,YT,C) 

: YT=YO+Y/2 


ХТ-ХО-Ү : YT=YO+X/2 
PSET (ХТ,ҮТ,С) 
ХТ-ХО-Ү : YT=YO-X/2 
PSET (XT,YT,C) 

1459 RETURN 


2-2 LINE と CIRCLE 
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1 ; 
2 H subroutine 'circle' 
4 8 entry (xo) := center point x 
5 ; (yo) := center point y 
6 ; (rad) := radius 
7 E (color) := dot color 
8 : modifies af,bc,de,hl 
9 ; 
10 ; 
11 C118 65612 equ 89C116H 
12 C187 color equ 9C197H 
13 H 
14 C380 org 9C399H 
15 C399 C313C3 Jp Circle 
16 ; 
17 C303 4001 xo: defw 328 
18 C305 6400 yo: defw 106 
19 C307 4800 гаа: defw ?5 
20 ; 
21 C309 intx: defs 2 
22 C39B fracx: defs 1 
23 C38C workx: defs 2 
24 СЗФЕ inty: defs 2 
25 C318 fracy: defs 1 
26 C311 worky: defs 2 
28 C313 circle equ $ 
29 : 
38 C313 2199C3 1а hl ,intx 3 work <- zero clear 
31 C316 AF xor a 
32 C317 868A ld b,18 
33 C319 77 clrwrk: 1d (hl),a 
34 C31A 23 inc hl 
55 C31B 18FC djnz clrwrk 
6 ; 
37 C31D CD7FC3 call circi 
38 C328 86CC 1а b, 284 
39 C322 C5 cloop: push bc 
48 C323 2A89C3 ld hl,(intx) 
41 C326 C0580CC3 ld de,(inty) 
42 C32A 3A19C3 1d a,(fracy) 
43 C32D 43 1d b.e 
44 СЗ2Е 5A 1а e,d 
45 C32F 1608 ld 9,0 ; уже 
46 C331 80 add a,b 
47 C332 3219C3 1d (fracy) ,a 
48 C335 ED52 sbc hl,de 
49 C337 2209C3 1d (intx) ,h1 
50 C33A 3A9BC3 1d a, (fracx) 
51 C33D 45 1d b,1 
52 C33E 6C 1d 1.Һ 
53 C33F 2688 1а һ,@ ; Xe 
54 C341 80 add a.b 
55 C342 328BC3 1d (fracx),a 
56 C345 ED5B9EC3 1d de, (inty) 
57 C349 ED5A adc hl.de 
58 C34B 228EC3 1а (inty),hl 
59 C34E CD5AC3 call longcp 
60 C351 3003 jr nc,next 
61 C353 CD7FC3 call circl 
62 C356 CI next: POP bc 
63 C357 10С9 djnz cloop 
64 C359 C9 ret 
65 E 
66 ; df (worky=inty) and (workx=intx) then cy flag off 
67 ; else cy flag on 
68 C35A ED5B11C3 longcp: ld de, (worky) 
69 C35E B7 or a 
70 C35F ED52 sbc hl ,de ; inty = worky ? 
71 C361 200C jr nz,noteql : no,then goto "exit" 
72 C363 2A09C3 1d hl.(intx) 
73 C366 ED5B9CC3 1а de, (workx) 


"22734 
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B7 
ED52 
280E 
2A09C3 
229CC3 
2A9EC3 
2211C3 
37 

C9 

B7 

C9 


2A93C3 
ED5B99C3 
19 

44 

4D 
2A95C3 
EDSB9EC3 
CB3A 
CB1B 

19 

EB 
CD19C1 


2A93C3 
ED5B89C3 
19 

44 

4D 
2A95C3 
ED5B9@EC3 


CD19C1 


2A9EC3 
ED5B93C3 
19 

44 

4D 
2A95C3 
ED5B99C3 


CD19C1 


2A9EC3 
ED5B93C3 
19 

44 

4D 
2A05C3 
ED5B99C3 


CD18C1 


2A93C3 
ED5B99C3 


noteql: 


equal: 


ircl: 


or 
sbc 
jr 
1d 
1d 
1d 
1d 
scf 
ret 
or 
ret 


егер = 


: xt:=xotx , у{:=уо+у/2 
c 


a 

hl,de 
z,equal 
hl, Cintx) 
(workx ) ,hl 
hl ,(inty) 
(worky ) ,hl 


1d hl,(xo) 
1d де, (іпіх) 
add hl.de 
1d b.h 
ld с,1 
1а hl, (yo) 
1d ае, (inty) 
srl d 
rr e 
add hl ,de 
ex de,hl 
call pset2 

$ Xt:=XO+X , yt:-yo-y/2 
1d hl, (хо) 
1d de.Cintx) 
add hl,de 
1а b,h 
1а с,1 
1а hl, (yo) 
1d de,(inty) 
srl d 
rr e 
or a 
sbc hl,de 
ex de, hl 
call pset2 

; xt:=xoty , yt:=yO+X/2 
1d hl, (inty) 
1d ае, (хо) 
add hl,de 
1d b,h 
1d C.l 
ld hl, (уо) 
ld de, (іпёх) 
srl d 
rr e 
add hl,de 
ex de,hl 
call pset2 

; X%:=X0+V , yt:-yo-x/2 
1d hl,Cinty) 
1d de, (xo) 
add hl,de 
ld b,h 
ld c,1 
1d hl,(yo) 
1d de, (intx) 
srl d 
rr e 
or a 
sbc hl ,de 
eX de,hl 
call PSet2 

: Xt:=XO-X , yt:=yo+y/2 
1d hl, (хо) 
1d de,(intx) 
or a 
sbc hl,de 
1d b.h 


intx = workx ? 


yes,then goto "equal" 
; workx:-intx 


1 worky:=inty 
; cy flag on 


2 cy flag off 


2-2 LINE £ CIRCLE 


FI 
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4D 1а с,1 
2A95C3 1d hl, (уо) 
ED5B8EC3 1d de,(inty) 
CB3A srl d 
CB1B rr e 
19 add hl ,de 
EB eX de,hl 
CD16C1 call pset2 
+ XC:=X0-X , yt:-yo-y/2 
2A03C3 1d hl,(xo) 
ED5B09C3 1d de,(intx) 
or a 
sbc hl.de 
1d b.h 
ld c.1 
1d hl . (уо) 
1d ае, (іпёу) 
srl d 
rr e 
or a 
sbc hl.de 
ex de.hl 
CD19C1 call pset2 
+ xt:=xo-y , yt:=yO+X/2 
2A93C3 1d hl.(xo) 
ED5B9EC3 1d de.( inty) 
or a 
sbc hl,de 
1d b.h 
1а с.1 
2A95C3 1d hl.(yo) 
ED5B99C3 1d ае, (іпёх) 
srl d 
rr e 
or a 
sbc hl ,de 
ex de.hl 
call pset2 
xt:-xo-y , yt:-yo-x/2 
2A03C3 hl, (хо) 
ED5B8EC3 de.(inty) 
a 
hl.de 
b.h 
C.l 
hl. (уо) 
ED5B09C3 de.(intx) 
CB3A sr a 
CBIB e 
19 hl.de 
EB de.hl 
C319C1I Pset2 


2-3 PAINT 


ここ で 紹介 する PAINT ルー チン は , も っ と も ゃ 一般 的 な 
ベー シッ ク ・ フ ィ ル アル ゴリ ズム を 使っ た も の で す 。 

まず , 始め に 単色 の PAINT に つい て 考え ん て み ま す 。 い 
ま , 図 2-7 の よう な 領域 を 塗り つぶ す と する と 処理 の 順序 
は 次 の よう に な り ま す ( 図 の 1 マス は 1 ドッ ト に 相当 する も 
の と する )。 


«ЕЙШ» PAINT の 処理 


@ 出発 点 を スタ ッ ク に 積む 
өл, 右 を サー チ し て 塗る 


e 矢印 の 上 下 を 見 て * 印 を スタ ッ 
ク に 積む 


@ 最後 に 積ん だ も の を ポッ プ し て 
同様 の 処理 を 繰り 返す 


で 出発 点 を スタック に 積む 。 

@ 境 界 色 に な る か , 画面 の 左端 (X 座 標 が 0) に な る ま て 左 
へ 色 を サー チ す る 。 こ の 結果 を X 1 と する 。 

@ 境 界 色 に な る か , 画面 の 右端 (X 座 標 が 639) に な る まで 
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右 へ 色 を サー チ す る 。 こ の 結果 を X 2 と する 。 

@X 1 か ら 6X 2 まで 点 を 打つ (LINE で 代用 で きる )。 
⑥X1 か ら X 2 まで の 上 下 の 点 を 見 て , も し 境界 色 で な いな 
6 その 座標 を スタ ッ ク に 積む 。 この と き 隣 合う 点 ち スタック 
に 積ま な いよ うに フラ グ を 設け る 。 

⑬ ス タック が 空 に な る まで ン か ら 6 繰り返す 。 

5, ⑳ の と き , すでに 塗っ て ある か どう か と いう こと を 
判断 し な けれ ば な り ま せん 。 単色 PAINT の 場合 , 上 下 の 
点 が 塗る 色 で あれ ば , すでに 塗っ た も の と し て 判断 で きま 
す 。 こ の アル ゴリ ズム を も と に つく っ た プロ グラ ム が リス ト 
2-9 で す 。1280 行か 6 1430 行 が 上 下 の 点 を 調べ る も の で す 
D, 境界 色 ど だ け で な く 〈 く 塗る 色 と も 条件 判断 し て いる こと に 注 
目 し て くだ さい 。 つ まり , ここ で は 境界 色 と 塗 る 色 を 同等 に 
扱っ つて いる こと に な り ま す 。 

ここ で 変数 LF, UF は 隣 合う 点 ち を ス タック に 積ま な いよ 
うに する フラ グ , CUF, CLF は Y 座 標 の 範囲 を 越 を な いよ 
うに する だ た だめ の フラ グ で す 。 ス タッ ク は 配列 で 代用 し まし 
だ た 。 リ スト 2-10 は テス ト 用 の プロ グラ ム で す 。 

中 間 色 PAINT の 場合 , 単色 PAINT と 違っ て 問題 に な 
る の は , どう や っ て すでに 塗っ た か を 判断 する こと で す 。 こ 
れ は 上 下 の ド ッ ト の 色 か ら は 単純 に 判断 で き な い か ら で す 。 
この 方 法 に は いろ いろ ある よう で す が , ここ で は 塗る と き に 
境界 色 と 境 界 色 の 間 を 見 て すでに 塗ら れ て いる か どう か 判断 
する よう に し まし た 。 リ スト 2-11 の 1790 行 以 降 の サブ ルー 
チン が その 判断 を する も の で す 。 

どの ライ ン ・ パ ター ン で 塗る か は , Y 座 標 の 値 で 決め る こ 
と に し ます (1450 行 )。 配 列 変数 TILECOLOR は 与え られ 
た ライ ン ・ パ ター ン の デー タ か ら ド ッ ト 単 位 の 色 を 格納 する 
も の で す 。1230 行か ら 1260 行 の データ を いろ いろ みろ 変更 し て 
試し て みて くだ さい 。 

この プロ グラ ム を マシ ン 語 化す る に は , まず POINT» 
ー チ ン を つく ら な けれ ば な り ま せん 。 UL, POINT ルー 
チン は すでに みて きた PSET ルー チン の 逆 の 動作 を する も 


の で すか ら 人 簡単 に つく る こと が で きま す 。 プ ログ ラム を リス 
説明 の 必要 は な いと 思い ます 。 


itl 


К 2-12 に 示し ます が , も は や 


1000 DEFINT A-Z 

1010 DIM SX(100),SY(100) 

1828 : : 

1838 Fon-! : Foff-8 

1040 : 

1050 INPUT "X0,Y0":X0, YO 

1060 INPUT "PAINT COLOR";PAC 

1070 INPUT "BORDER COLOR";BDC 

1080 : 

1898 I=0 

1100 SX(I)=X0 : SY(I)=Y0 : I=1 

1110 LABEL "MAIN" 

1128 I=I-1 

1138 IF 1<9 THEN END 

1148 X=5X(I) : Y=SY(I) 

1150 : 

11680 WHILE POINT(X,Y)<>BDC AND X>=9 

1170 X=X-1 

1180 WEND 

1190 X1=X+1 

1208 X=SX(I) 

1218 WHILE POINT(X,Y) く <>BDC AND X<=639 

1220 X=X+1 

1238 WEND 

1240 X2=X-1 

1250 : 

1268 LINE (X1,Y)-(X2, Y), PSET, РАС 

1278 : 

1280 CUF=Fon : CLF=Fon 

1290 IF Y=9 THEN CUF=Fof f 

1300 IF Y=199 THEN CLF=Foff 

1310 UF=Foff : LF=Foff 

1320 FOR X=X1 TO X2 

1330 IF CLF=Foff THEN "SKIP1" 

1348 PTL=POINT(X,Y+1) 

1359 IF PTL >BDC AND PTL >PAC AND LF-Foff 
THEN LF=Fon : SX(I)=X : SY(I)=Y+1 :1=1+1 

1369 IF PTL=BDC OR PTL=PAC AND LF=Fon 
THEN LF=Foff 

1370 LABEL "SKIP1" 

1380 IF CUF=Foff THEN "SKIP2" 

1390 PTU=POINT(X,Y-1) 

1400 IF PTU<>BDC AND PTU >PAC AND UF=Foff 
THEN UF=Fon : SX(I)=X : SY(I)=Y-1 :1=1+1 

1418 IF PTU=BDC OR PTU=PAC AND UF=Fon 
THEN UF=Fof f 

1428 LABEL "SKIP2" 

1438 NEXT 

1440 GOTO "MAIN" 


1) А Е2-10 


10 INIT : wIDTH 80 : CLS 4 
20 LINE (1060,100)-(120,100)-(120,120)-(130,120)-(130.100) 
30 ІЛМЕ -(158,188)-(150,180)-(108,180)-(108,180)-(188,150) 


40 LINE -(90,150)-(98,160)-(70,160)-(70,140)-(100,140)- (100,100) 
58 LINE (115,140)-(135,140)-(135,160)-(115.160)-(115,140) 


2-3 PAINT 


61 


62 


1000 
1010 
1020 


DEFINT A-Z 
DEF FNCH(A$,J)=VAL(MID$(RIGHT$("0000000"+BIN$(VAL("&h"+A$)),8),J+1,1)) 
DIM SX(199) ,SY(199) 


1038 : 


1848 
1050 
1060 
1070 
1080 
1090 
1180 
1118 
1128 
1138 
1146 
1150 
1168 
1178 
1188 
1198 
1208 
1218 
1228 
1238 
1240 
1250 
1260 


Fon=-1 : Foff=0 


RESTORE "TILE" 
READ No 
DIM TILE$(No-1),TILECOLOR(No-1,7) 
FOR 1=@ TO Nox3-1 STEP 3 
A$="" 
FOR J=0 TO 2 
READ A$ : TILE$(I/3)=TILE$(I/3)+A$ 
NEXT J,I 
RESTORE “TILE” 
READ TMP : ”DAMMT READ 
FOR 1-0 TO No*3-1 STEP 3 
READ A$ : READ B$ : READ C$ 
FOR J=0 TO 7 
TILECOLOR( I/3, J) £FNCH(A$, J) *FNCHCB$, J) 2*FNCH(C$, Ј) 4 
NEXT 4,1 


LABEL"TILE" 

DATA 3 : * TILE DATA No. 
DATA AA,CC,AA : ' TILE DATA (B,R,G) 
DATA 55,11,22 

DATA 22.33,44 


1278 : 


1288 
1298 


INPUT "X0,Y0";X0,YO 
INPUT "BORDER COLOR";BDC 


1300 : 


1318 
1328 
1338 
1348 
1350 
1360 
1378 
1380 
1398 
1400 
1418 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1538 
1540 


1550 
1560 
1570 
1588 
1598 


1600 
1610 
1620 
1630 
1640 
1658 
1668 
1670 
1680 
1690 
1700 
1710 


1=9 
SY(I)=Y9 : SX(I)-X8 
1=1 
LABEL "MAIN" 
IsI-1 
IF 1<0 THEN END 
X=SX(I) : YsSY(1) 


GOSUB "LEFT SEARCH" : X=SX(I) 
GOSUB "RIGHT SEARCH" 


60508 "CHECK" 
IF FLAG THEN "MAIN" 


LINE (X1,Y)-(X2, Y), PSET, BF, HEXCHR$(TILE$(Y MOD No)) 


CUF-Fon : CLF=Fon 
IF Ү=0 THEN CUF-Foff 
IF Y=199 THEN CLF=Foff 
UF=Foff : LF=Foff 
FOR X=X1 TO X2 
IF CLF=Foff THEN "SKIPI" 
PTL=POINT(X,Y+1 ) 
IF PTL >BDC AND LF=Foff 
THEN LF=Fon : SX(I)=X : SY(I)=Y+1 : I=I+1 
IF PTL=BDC AND LF=Fon THEN LF=Foff 
LABEL "5КІРІ" 
IF CUF=Foff THEN "SKIP2" 
PTU=POINT(X.Y-1) 
IF PTU<>BDC AND UF=Foff 
THEN UF=Fon : SX(1)=X : SY(I)=Y-1 : 1=1+1 
IF PTU=BDC AND UF-Fon THEN UF-Foff 
LABEL "SKIP2" 
NEXT 
GOTO "MAIN" 


LABEL"LEFT. SEARCH" 
WHILE POINT(X,Y) く >BDC AND X>=9 
Х-Х-1 
WEND 
X1=X+1 
RETURN 


2-3 PAINT 


1720 LABEL"RIGHT_SEARCH" 

1730 WHILE POINT(X,Y)<>BDC AND X<=639 

1748 X=X+1 

1750 WEND 

1760 X2=X-1 

1779 RETURN 

1789 : 

1790 LABEL"CHECK" 

1800 FLAG=Fon 

1810 X=X1 

1820 LABEL"LOOP" 

1839 IF POINT(X.Y) く >TILECOLOR(Y MOD No . X MOD 8) 
THEN FLAG=Foff : RETURN 

1840 X=X+1 

1850 IF X<=X2 THEN "LOOP" 

1860 RETURN 


subroutine ‘point’ < 
entry (x0) point x 
(y9) := point y 
returns (ix) or (pcolor) 
modifies af,bc,de,hl 


8C000H 


(O ç — O; Q h @ o ~ 


9C599H 
C387C5 point 


0000 9999H 
0000 9999H 


$ 


ED4B83C5 : bc, (x8) 

ED5B85C5 de,(y9) 
hl ,639 
a 
hl ,bc 
С 
Һ1.199 
hl,de 
c 


DD216EC5 : ix,pcolor 

DD369999 (ix),9 + Color:=9 

79 a,c 

2F 

E687 7 ; a:=X9 mod 8 
326DC5 (xmod8),a 

CD99C@ calcva 

3A6DC5 а, (xmod8 ) 

87 a,a ; Shift left З bits 
87 a.a 

87 a.a 

F643 43H ; or 01000011b 
3248C5 ы (@bitb),a 

3257C5 (@bitr),a 

3266C5 (@bitg),a 


110040 tstblu: de,4000H 
hl ,de 
b,h 
с.1 
e, (c) 
9CBH i bit n,e 
1 
z,tstred 
DDCB99C6 9,(ix) 
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っ つき 


53 C54F 119949 tstred: 1d de,4999H : red 

54 C552 19 add hl.de 

55 C553 44 1а b,h 

56 C554 ED58 in e. (c) 

57 C556 CB defb 9CBH ; bit ი,6 
58 C557 @bitr: defs 1 

59 C558 2804 Jr z.tstgrn 

68 C55A DDCB99CE set 1, Cix) 


61 C55E 110040 tstgrn: 1d de.4000H ; green 
ad hl,de 


68 C568 DDCB99D6 


69 C56C C9 
79 

71 C56D 

72 С56Е 


Xmod8: 
pcolor: defs 


リス ト 2-13 が 中 間 色 PAINT ルー チン で す 。 リ スト 2-11 
を ほぼ その まま ハン ド ・ コ ユ コンパイル し た も の で すか ら , 特に 
解説 する 部 分 は あり ませ ん 。 7277, ‘save 1 や save 2' の よう 
に スタ ッ ク を 操作 する と き は 変 な データ を プッ シュ し な いよ 
92 に 注意 し な けれ ば な り ま せん 。 ま た だ, スタ ッ ク が オー バー 
フロ ー し な いよ うに 監視 する こと も 必要 で す 。 な お , 24 
ン ッ パター ン は 8 個 ま で と し て いま す が , *tilecc の エリ ア を 大 
きく すれ ば 数 を 増やす こと が で きま す 。 こ の PAINT ルー 
チン で は , 座標 値 の チェ ッ ク を する 必要 が な い の で , 
‘pset 3', “point 3? を コー ル し て いま す 。 

ここ で は , スタ ッ ク か ら ポ ッ プ し た 後 。 塗ら れ て いる か ど 
うか チェ ッ ク し て いま す が , これ を スタ ッ ク に 積む と き に チ 
ェ ッ ク し て も よい で し ょ う 。 こ うす る と , まず 左右 の 境界 色 
を 調べ る わけ で すか ら ス タッ ク に 積む の は 双 座 標 の 左右 端 と 
Y 座 標 し な り ま す 。 そ し て , スタ ッ ク か ら ポ ッ プ し た ら 6 す で ぐ 
塗る こと に し ます 。 

5%, リス ト 2-13 の 実行 速度 で す が , 最初 の X 1 の 
BASIC (CZ 一 8FB01) より は 速い (の で す が , X 1 Turbo 
や “OhIMZ 誌 " に 掲載 きれ た PAINT よ り は 遅く な っ て し ま 
bL 

プロ グラ ム の 実行 速度 を あげ た いと き は , も っ と も 数 多く 
通る ルー チン を 高速 化す れ ば よい の で , ここ で は POINT 


と PSET ルー チン を 高速 化す れ ば よい こと が わか る と 思い 
id, ここ で は 境界 色 を サー チ す る と きも , 点 を 打つ と きも 
常に Y 座 標 は 一 定 で す 。 で すか 6, 毎回 calcva' と い 23 
VRAM アド レス を 求め る ルー チン を 使わ ず に , 始め に 1 回 
だ け こ れ を コー ル し て , あと は 求 ま っ た VRAM アド レス を 
イン クリ メン ト , デ ク リ メン ト し て カラ ー コ ユ コード を 得る な 
b, 点 を 打つ な りす れ ば か な り 速 く な る と 思い ます 。 

こう する と , VRAM アド レス と 座標 値 を 両方 管理 し な け 
れ ば な ら な い の で , プログ ラム は 複雑 に 。 な お か つ 長 く な る 
で し ょ う 。 また だ た, CORA, POINT や ゃ PSET ルー チ シ も 
汎用 の も の で な く , РАМТ 専用 の も の に な り ま す 。 も っ と 
速く し た い 方 は チャ レン ジ し て みて くだ るい 。 

ちょ っ と 余談 に な り ま す が , “Oh!MZ 誌 "に 掲載 され た 
PAINT ルー チン で は , VRAM の 表示 る れ な い エ リア (7 
Ер 0~7 ЕЕЕ, ВЕр0--ВЕҒЕ, FFD0—FFFF) (2 — Н i 
か の プロ グラ ム を 待避 させ て , その 空い た 領域 を も スタ ッ ク ・ 
エリ ア に する と いう 方 法 を と っ て いま し た 。 た い へ ん うま い 
方 法 だ と 思い ます 。 

iX, スタ ッ ク と いう の は LIFO (Last IN First Ош) バ 
ッ フ ァ で す が , X 1 Turbo で は FIFO (First IN First Out) 
バッ ファ を 使っ て PAINT し て いま す 。 つ まり , 最初 に 積 
ん だ も の を 最初 に 塗る と いう こと で す (塗る 順序 に 注目 し て 
くだ さい )。 確か に FIFO バ ッ フ ァ を 使う と ワー ク ・ エ リア 
の サイ ズ を 小さ く で きま す が , その 代わ り ポ イン タ を 余計 に 
持た な けれ ば な ら な い の で , その 分 処理 が めん どう に な り ま 
To 
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66 


C352D8 


6408 
5008 
84 

903 
AACCAA 
551122 
223344 


Ер4В0308 
ED5B95D9 
217F92 


211288 
111308 
913F99 
3699 
EDB9 


3A98D@ 
47 
DD2199D9 
FD2112D9 
DD5699 
005691 
DD6E92 
2608 
CB22 
3004 
FDCB800C6 
CB23 
3004 
FDCB99CE 
CB25 
3994 
FDCB99D6 
FD23 


Point3 
pset3 
print 


stktop 
Stkbot 
color 

Pcolor 


хө: 
ув: 
bdc: 
no: 
tile: 


tilec: 
; 


hpaint 


subroutine 'tiling paint" 


ld 
1а 
1а 
ог 
sbc 
ret 
1d 
sbc 
ret 


POP 
1d 


entry (x8) 
(уб) 
(bdc) 
(no) 
tile 


origin x 

origin y 

border color 

tile data no. 
tile data (Ы,г,9) 


modify  af,bc.de,hl.ix.iy 


9C51CH 
9C11DH 
999BH 


9CF99H 
9C899H 
9C197H 
9C56EH 


9D999H 
hpaint 


199 

89 

4 

3 
9AAH, 9CCH , 9AAH 
55H, 11H,22H 
22H, 33H, 44H 

64 


$ 


bc, (х0) 
de, (y0) 
h1,639 
a 

hl, bc 
ë 
Һ1.199 
hl.de 
с 


hl 
(retadr),hl 


; --- make color table --- 


Ctbl: 


1а 


hl,tilec 
de,tilec+1 
bc,63 
(h1).9 


а, (по) 
b,a 
ix,tile 
iy,tilec 
а, (іх) 
е, (іх+1) 
l.Cix*2) 
h.8 

d 

nc, ctb13 
0,(IV) 


6 
nc,ctb14 
1,(iy) 

1 
nc,ctb15 
2. (iy) 
iy 


; check origin point 


; save return address 


tilec[] := 


: d <- blue 
зе <- red 


1 <- green 
loop counter 


一 一 一 一 一 一 一 一 
кә кә ке как көкек. 


25 

20ЕЗ 
DD23 
DD23 
DD23 
19D9 


ED738CD1 
3199CF 


2A95D9 
ES 
2A93D9 
E5 


210000 
39 
1100CF 
ED52 
CAD4D1 


СІ 

D1 
ED4399D1 
ED5392D1 
CDECD1 


CD59D2 
38E2 


CDB4D2 


210000 
2284D1 
2286D1 
2A55D2 
2253D2 
3A92D1 
B7 


3A87D1 
B7 

282B 
ED5B8AD1 
ED4B53D2 
CD1CC5 
005600 


340709 
BA 
280A 
3A84D1 
B7 
CC94D1 
3A87D6 


odi 

dec h 
jr nz,ctbl12 
inc ix 
inc ix 
inc ix 
djnz ctb1 1 

; 
1d (savesp) , Sp 
1d SP,Stktop 
1d hl,(y9) 
push hl 
1а hl 、(x9) 
push hl 

main equ $ 
1d hl,9 
add hl ,SP 
1d de,Stktop 
Sbc hl,de 
jp z,endret 
pop bc 
POP de 
1d (coordx) ,bc 
1d (coordy) ,de 
call Search 
call check 
Jr c,main 
call hline 

; === save stack --- 
1а hl,8 
ld (uf),hl 
1d (cuf ) ,hl 
1d hl, (x1) 
1а (x),hl 
1d a,(coordy) 
or a 
jr Z,Skipl 
1d (cuf),a 
dec a 
1d (yminus),a 
1nc a 

skipi: ld b,199 
CP b 
Jr 2.Ғогх 
1а (clf),a 
inc a 
1а (yplus),a 

forx: 1d a, (clf) 
or a 
jr z,forx2 
1d de,(yplus) 
1d bc, (х) 
call point3 
ld d,Cix) 

E 
1а а, (bdc) 
СР а 
г z,forx1 
1а av(uf) 
or a 
call z,savel 
1а a,(bdc) 

forxl: ср d 
Jr nz, forx2 
1d а, (uf ) 
or a 
jr z,forx2 
xor a 


H 


2-3 PAINT 


hl SP ( and cy := 8 ) 


uf,1f off 


x := хі 


if a<>9 then cuf := on 


if a<>199 then clf := on 


d := point(x,yPplus) 


if d = bdc then "forx1" 


if uf = 8 then "save" 

if bdc <> d then "forx2" 

if uf = 9 then "forx2" 
ciii 
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D13B 


D13E 
D141 
D142 
D144 
D148 
D14C 
D14F 
D152 
D155 
D156 
D158 
0158 
015C 
015L 
0162 
0163 
0165 
0168 
0169 
0168 
016C 


DI6F 
D172 
D173 
D176 
D17A 
D17B 
D17D 
D17F 


0181 


0184 
D185 
D186 
D187 
D188 
D18A 


D18C 
DI8E 
D190 
D192 


D194 
D196 
D199 
D19A 
D19D 
D19E 
D1A8 
D1A2 
D1A5 
D1A6 
D1A9 
D1AA 
D1AC 
DIAF 


DIBI 
D1B3 
0186 
0187 
0184 
0188 
D1BD 
DIBF 
DIC2 
D1C3 
D1C6 


3284D1 


3A86D1 
B7 

282B 
ED5B88D1 
ED4B53D2 
CD1CC5 
005688 
3A97D9 
BB 

289A 
3A85D1 
B7 
CCBIDI 
3A97D9 


3285D1 


2A53D2 
23 
2253D2 
ED5B57D2 
B7 

ED52 
388E 
288C 


C3C3D9 


DDE1 
210000 


-13 ui. 


1а 


forx2: ld 
ог 
јг 
1а 
1а 
са11 
1а 
1а 
СР 
Jr 
1d 
Or 
call 
1d 

forx3: cP 
jr 
1d 
Or 
Jr 
xor 
1d 


forx4: 1а 
inc 
1d 
1d 
Or 
Sbc 
jr 
dr 


jP 
uf: 
lf: 
cuf: 
C1L: 
yminus: 
yplus: 


defs 
defs 
defs 
defs 
defs 
defs 


defs 
defs 
defs 
defs 


savesp: 
retadr: 
coordx: 
coordy: 
--- save --- 
Savel: pop 
1d 
add 
1d 
or 
sbc 
jr 
1d 
push 
1d 
push 
1d 
1d 
jp 
Save2: POP 
1а 
ада 
1а 
ог 
sbc 
Jr 
1d 
push 
1d 
push 


(uf),a 


а, (cuf ) 
a 
z,forx4 
de,(yminus) 
bc, (x) 
point3 
e, (ix) 
a, (bdc) 
e 
z,forx3 
a,(1f) 

a 
Z,Save2 
a, (bdc) 
e 
nz.forx4 
a.(1f) 

a 
z.forx4 


a 
(1f).a 


hl,(x) 
hl 

(x) ,hl 
ае, (х2) 
а 
hl.de 
с.Ғогх 
z.forx 


main 


PN N N m me = 


ix 

hl,9 
hl.sP 
bc,stkbot 
a 

hl ,bc 
c,outstk 
hl, (yplus) 
hl 

hl, (x) 

hl 

а, BFFH 
(uf ) ,a 
(ix) 


ix 

hl,0 
hl,sp 
bc,stkbot 
a 

hl, bc 
c,outstk 
hl,(yminus) 
hl 

hl,(x) 

hl 


e := point(x,yplus) 
if e = bdc then "skip3" 
if 1f = 9 then "save" 


if bdc <> e then "skip4" 


if uf = 0 then "skip2" 


ix <- return addr. 


; return 


ix <- return addr. 


っ づく 


2-3 PAINT 


223 D1C7 3EFF 1d a,0FFH 

224 D1C9 3285D1 1d (1f),a 

225 D1CC DDE9 jP (IX) ; return 
226 E 

227 ; 

228 DICE 11DCD1 outstk: 1d de,emes 

229 DIDI CD0B00 call Print 

230 ; 

231 D1D4 ED7B8CD1 endret: 1d Sp. (savesp) 

232 D1D8 2A8ED1 1d hl,(retadr) 

233 DIDB Е9 JP (hl) ; return 
234 : 


235 DIDC 4F757429  emes: defm "Out of Memory' 
0168 6F66294D 
DIE4 656D6F72 


DiE8 79 
236 DIE9 9D9A99 defb 9DH, BAH, 8 
237 : 
238 : 
239 : Search color 
240 ; 
241 
242 ; 
243 DIEC ED4353D2 search: 1d GO, bc 
244 DIF8 2A53D2 left: ld hl, (x) 
245 DIF3 CB7C bit 7.Һ ; if hl < 0 
246 DIF5 201D jr nz.left4 ; then x1 := 0 
247 ; 
248 DIF7 ED4B53D2 lefti: ld bc, (x) 
249 DIFB ED5B92D1 1а de, (соогду) 
250 DIFF CD1CC5 са11 point3 
251 D292 3A07D0 1d а. (bdc? 
252 D205 DD4699 1d b,(ix) ; b := (pcolor) 
253 D298 B8 СР b ; if bdc = pcolor 
254 D209 2809 jr Zz,left4 ; then "left4" 
255 D20B 2A53D2 1d hl, (x) 
256 D29E 2B dec hl 1 X tw X-1 
257 D29F 225302 1d (x),hl 
258 D212 18DC Jr left 
259 ; 
260 D214 2A53D2 left4: 1d hl ,(x) 
261 D217 23 inc hl : 
262 0218 225502 1ძ (xl) ,hl 4 XI ye Xtl 
263 : 
264 ; right 
265 : 
266 0218 ED4B90DI right: ld bc, (соогах ) ; bc := x 
267 D21F ED4353D2 1d (x),bc 
268 D223 2A53D2 rightl: ld hl, (x) 
269 D226 117F02 1d de,639 
270 D229 B7 or a 
271 D22A ED52 sbc hl ,de : if x > 639 
272 D22C 3010 jr nc.right2 1 then "right2" 
73 H 
274 D22bE ED4B53D2 1а bc.(x) 
275 D232 ED5B92DI 1d ае, (coordy) 
276 D236 CDICC5 call point3 
277 0239 3A97D9 1а а, (bdc) 
278 D23C DD4600 1d b, (ix) 
279 D23F B8 cp b ; if bdc = pcolor 
280 D240 2809 jr z.right2 : then "right5" 
281 D242 2A53D2 1а hl, (x) 
282 D245 23 inc hl ; x := X+1 
283 D246 2253D2 1d (x).hl ; a i= low(x) 
284 D249 18D8 jr right! 
285 ; 
286 D24B 2A53D2 right2: 1d hl. (x) 
287 D24E 2B dec hl 
288 D24F 2257D2 1d (x2 ) .hl 
289 : 
290 0252 C9 ret 
291 : 
292 0253 X: defs 2 
293 D255 xl: defs 2 


28 


69 


70 


294 D257 
295 

296 

297 

298 

299 

388 

301 

302 0259 
303 D25C 
304 D25F 
305 D262 
306 D263 
307 D266 
308 D267 
309 D269 
310 D26A 
311 D26D 
312 D278 
313 D271 
314 D272 
315 D274 
316 D275 
317 D277 
318 

319 D27A 
320 D27E 
321 D282 
322 D283 
323 D285 
324 D286 
325 D28A 
326 D28D 
327 D298 
328 D291 
329 D292 
330 0294 
331 D296 
332 D299 
333 D29A 
334 D29C 
335 D29F 
336 D2A9 
337 D2A3 
338 D2A7 
339 D2A8 
348 D2AA 
341 D2AC 
342 

343 D2AE 
344 D2AF 
345 

346 D2B9 
347 D2B1 
348 

349 D2B2 
350 

351 

352 

353 

354 

355 

356 

357 D2B4 
358 D2B7 
359 D2BA 
368 

361 D2BE 
362 D2C@ 
363 D2C3 
364 D2C5 
365 D2C6 
366 D2C8 
367 D2CA 


2A55D2 
2253D2 
3A88D6 


211208 
010800 
3C 

3D 
2803 
99 
18FA 
22B2D2 


FD2AB2D2 
ED4B53D2 


ED5B92D1 
CD1CC5 
004606 
88 


2253D2 
ED5B57D2 
87 

ED52 
38CE 
28CC 


37 
C9 


B7 
c9 


2A55D2 
2253D2 
DD2AB2D2 


DDES 
3A53D2 
E697 
4F 
0600 
DD09 
DD7E00 


x2: defs 2 
; check already painted 
: entry хі 
; x2 
: return CV flag 
; tileno 
Check: 14 hl, (x1) 

1d (x),hl 

1d а, (по) 

1а d.a 

1а а. (соогду) 
сһескі: sub а 

jr пс.сһескі 

ада а.а 

1а hl,tilec 

1а bc,8 

inc a 
check2: dec a 

jr Z,check3 

add hl,bc 

jr Check2 
check3: 1d (tileno),hl 
check4: 1d іу, (tileno) 

1d bc,(x) 

1d a,c 

and Y d 

ex af.af' 

1а де, (соогду) 

са11 Point3 

1d ხ,(IX) 

ex af 。af* 

1d e.a 

1а 9.08 

add iy,de 

1d а. (іу) 

cp b 

jr nz.check5 

1d hl, (x) 

inc hl 

ld (x),hl 

1d ае, (х2) 

ог а 

sbc hl ,de 

jr c,check4 

jr z,check4 

SCf 

ret 
check5: or a 

ret 
tileno: defs 2 
3 === hline --- 
H entry хі.х2,соогду 
; tileno 
; return none 
hline: 14 hl, (х1) 

1а (x) ,hl 

1d ix, (tileno) 
hlinel: push ix 

ld a, (x) 

and 7 

1d c.a 

1d b,9 

add 1x,bc 

1d a,(ix) 


(if on then painted else no) 


x := хі 


a := low(coordy) 


a := y mod no 


a := x mod 8 
save a 


b := point(x,y) 
load a 


: get tile color code 


if Point(x,y)X»5tilecolor 


X := x«l 


if x <= x2 
then "check4" 


x іа xl 
ix <- tile color 


a := low(x) 


a <- color code 


っ づく 


2-3 PAINT 


368 D2CD 3297C1 1d (color),a 

369 D2D8 ED4B53D2 1d bc, (х) 

378 D2D4 ED5B92DI 1d de,(coordy ) 

371 D2D8 CDIDCI call pset3 

372 0208 DDE! POP ix 

373 D2DD 2A53D2 1d hl,(x) ; x := x«l 
374 D2E9 23 inc hl 

375 D2E1 225302 1d (x) ,hl 

376 D2E4 ED5B57D2 1d ае, (х2) + Н X <= х2 
377 D2E8 B7 or a ; then "hlinel" 
378 D2E9 ED52 sbc hl,de 

379 D2EB 38D1 jr c,hlinel 

380 D2ED 28CF Jr z.hlinel 

381 D2EF C9 ret 
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3-1 効果 音 


3-2 音声 合 


PSG(AY-3-8910) は , 1 チッ プ の シン セ サ 
イザ と 呼ば れ て いま す が , 機能 的 に は シン セ 
サイ ザ と 呼べ る ほど の も の で は あり ませ ん 。 
езі, ソフ トウ エア 炊 第 で な か な が 面白 い 
こと が で きま す 。 本 章 で は それ ら の 1 例 を 紹 
介 じ ます 。 


=> 
C 
== 
サ 
|. 
75 
用 
ДЕ, 
ツ 
F 
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3-1 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


本 章 で は , PSG の 機能 , レジ スタ な ど に つい て は いっ き 
い 解 説 し ませ ん 。 こ れ に 関し て は , 既刊 の 『X 1 リフ ァ レ ン 
ス ノ ッ ト 』 な ど を 参照 し て くだ さい 。 


3-1-7 基本 ザ フ ブルー チン 

PSG に デー タ を 出力 する 最も 基本 ほな る サブ ルー チン を 
リス ト 3-1 に 示し ます 。 こ れ は 既に 何 度 も 見 て きだ た と 思う の 
で , 特に 解説 は し ませ ん 。 

PSG で 音楽 を 演奏 する 場合 ,、 トー ン ・ ジ ェ ネ レー タ に 音階 
の 周波 数 を セッ ト し , 音 の 長き る は ツ ソフトウェア で を その 分 カウ 
ント し て や り ま す 。 リ スト 3-2 は 音楽 演奏 用 の サブ ルー チン 
С, 音 の 長き に は 表 3-1 の よう な デー タ を 入れ ます 。 音 の 高 
る の デー タ は , 音階 の 周波 数 か ら 求 め た も の で , これ に つい 
て は 『X1 リ ファ レン ス ノ ッ ト 」』」 を 参照 し て くだ さい 。 


--- subroutine 'sound' --- 
entry a := psg reg. number 
d := data 
modifies none 
Psgcom 1C99H 
9C999H 


sound: bc 
1d bc.psgcom 
(c).a 


b 
(c).d 
bc 


3-| 効果 音 


entry none 
modifies af.bc.de.hl 


sound 9C999H 


9C199H 


2197C1 music: hl.mdata 
CD29C1 musicl 
C9 


一 一 
– რ cX o — O) Q p ом ~ 


EF00 mdata: 9EFH : freq. 
8999 9989H : length 
0500 ØD5H 

8000 0080H 

BE00 9BEH 

8000 0080H 

B300 9B3H 

8000 9989H 

9F00 9FH 

8000 0080H 

8E00 8EH 

8000 9989H 

7F00 7FH 

8000 0080H 

7700 77H 

8000 0080H 


9FFFFH ・ end mark! 
musicl: a.7 ; turn switch 
d.3EH ; tone-a on 
sound 
music2: a.8 ; set volume 
1,0 
sound 
C, Ch1) get freq. data 
hl 
b, (hl) 
hl 
a.b 
a і freq. < 0 ? 
m ; yes . return 
c ; freq.=0-? 
z.music3 ・ yes . volume : 
a.8 volume := 
d.15 
sound 
tone 
music3: c.(h1) ・ get length data 
hl 
b, (hl) 
hl 
delay 
music2 
・ set freq. 
tone: xor set freq. 
1d 


112601 delay: de.0126H 
delay2: de 
1d a.e 


d 
nz.delay2 
bc 


a.c 


b 
nz,delay 


100H | COH | 80H | 60H 
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=!20 の 場合 。 =n の 場合 は この デー タ を - 倍 す る 


ა eS や ხა 

3-1-2 ノイ スズ. ジェネレータ の 活用 
効果 音 を うま く 作 る こつ は ノイ ズ ・ ジ ェ ネ レー タ を 活用 す 
る こと で す 。 簡単 な 例 と し て , 波 の 音 を 作っ て み ま し た (I) 
スト 3-3), ‘sounds’ と いう ラベ ル 名 で 始ま きる サブ ルー チン に 
は , イン ライ ン ・ パ ラメ ー タ で デー タ を 送り ます 。 デ ー タ の 
形式 は , PSG レジ スタ 番号 , デー タ …… の 順 で す 。 

リス ト 3-4 に いく つか の サン プル の デー タ を 示し て お きま 
3. 最初 の 踏切 の 音 は , 3 つの 周波 数 の 違う トー ン を 出力 
L, その うち 2 つ に エン ベロ ー プ を か け て 作り まし た 。 次 は 
ピス トル の 発射 音 で す が , エン ベロ ー プ ・ タ イム を も っ と 短 
(UC, エン ベロ ー ジ 波形 を 連続 し た も の に 取り 替え る と マ 
シン ガン の 音 に な り ま す 。 3 番目 の デー タ は 爆発 埋 で す が , 
これ は 普通 の シン モ サ イザ で は , ピン ク ・ ノ イズ を 使っ て 合 
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成 し ま す 。 ピ ンク ・ ノ イズ は 高周波 成分 の 少な い に ノ イズ で す 
が , X 1 で は PSG へ の 基本 周波 数 が 高く , ノイ ズ の 平均 周 
波数 は 最低 で も 4 KHz と 高く な が っ て いま す 。 そ の だ めこ こ 
で は トー ン に 最も 低い 周波 数 を セッ ト し て , 同じ チャ ン ネ ル 
か ら ミ ッ グ ス も て 出力 し まし だ た 。 

リス ト 3-5 は サイ レン の 音 を で す 。 これ は 2 つの 周波 数 の 
トー ン を 交互 に 出力 する こと で 合成 で きま す 。 


$ === effects ーー ニー 
; entry none 
modifies af.de.hl 


sound equ 9C909H 


org 0C200H 


CD11C2 effext: call sounds 
; --- wave --- 
0737 defb 7.37H ; noise-a on 
0608 defb 6.08H ; noise freq. := 15.6KHz 
0810 defb 8.19H ・ env.-a on 
9B7A defb 11.7АН ・ env.time := 
9CDA defb 12,9DAH 


9D9E defb 13.9EH ; env.shape : 


; end mark! 


Sounds: ; hl := addr. of data 
sloop: іа := reg. no. 


FAIFC2 .exi ; if reg.no < 8 then return 
56 ` ; d := data 

23 

CD99C9 

18F3 

E9 ; return 


--- fumikiri --- 
defb 7,38H 
defb 8,10H 
defb 9,10H 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


13, 08H 

9FFH 

+ --- pistol --- 
defb 7,37H 
defb 6.8 
defb 8,19H 
defb 11,42H 
defb 12,82H 
defb 13,8 
defb 8FFH 


$ ーーー explosion --- 

defb 7,36H 
defb 8.19H 
defb 9.9FFH 
defb 1.9FH 
defb 6,1FH 
defb 11,8EH 
defb 12,5BH 
defb . 13,0 
defb 8FFH 


CD00C1 
973C 
9819 
9919 
9BFF 
9CF4 
0DOE 
FF 


1ЕЗ2 
CD99C1 
99EF 
0100 
928E 
9399 
ЕР 


CD34C3 
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sounds 


; 
siren: 


sirenl: 


siren 
equ 
org 


call 
defb 
defb 
defb 
defb 
defb 
defb 
defb 


1а 

са11 
defb 
defb 
defb 
defb 
defb 


call 


; tone b freq. 


; tone c freq. 


; noise freq. 
; envelope time :- 3s 


: tone a.b,c on 
; envelope a on 


envelope b on 


; volume c := 12 


tone a freq. :- 1847Hz 
:= 523Hz 


:= 262Hz 


; envelope time := 0.55 


; envelope shape :- 8 
; end mark! 


; noise a on 
; noise freq. 
; envelope a on 

; envelope time := 0.55 


:= 15KHz 


; envelope shape := 9 
; end mark ! 


: tone a on , noise a on 
; envelope a on 
; tone a freq. 


1: 38.5Hz 
:= 4КН2 


; envelope shape := 9 
; end mark! 


9C100H 
0C300H 


Sounds 
7,3CH 
8.10H 
9,18H 
11,8FFH 
12, 0F4H 
13,9EH 
9FFH 


6,598 
50სიძ5 
0, ВЕЕН 
1,8 
2,8EH 
3,0 
9FFH 


delay 


; tone a freq. 


; tone b freq. 


tone a on . tone b on 


; envelope a on 
; envelope b on 
; envelope time : 


; envelope shape : 
: end mark! 


looP counter 
:= 523Hz 
:= 889Hz 


end mark! 
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CHED --‹ 


26 C321 CD99C1 sounds 

27 C324 00DD , : tone_a freq. : 
28 C326 8101 . 

29 C328 021C " ; tone b freq. : 
30 C32A 0301 3.1 

31 C32C FF ・ end mark! 


32 

33 C32D CD34C3 

34 C330 1р e 

35 C331 29DF nz.sirenl 
36 C333 C9 

37 


38 C334 91FFFF bc, BFFFFH 
39 C337 9B bc 

40 C338 79 1d a.c 

41 C339 B0 b 

42 C33A 20FB nz.delayl 
43 C33C C9 


3-1-3 特殊 効果 音 

PSG は シン も サイ ザ と し て 見 れ ば 非常 に シン プル な も の 
で , 音 は どう し て も 単調 に な り が ち で す 。 し か し , そう いっ 
て あき ら め る の も 早計 で , プロ グラ ム の 工夫 次 第 で 結構 な も 
し ろ い 効果 が 得 ら れ ま す 。 こ こ で は 一 般 的 な 効果 音 し し て ポ 
ル タ メ ント , エコ ー。 ビ プラ ー ト を 紹介 し ます 。 
信人 急降下 爆撃 

トー ン ・ ジ ェ ネ レー タ の 周波 数 を 高い 方 か ら 低 い 方 へ 変化 
る せ ポ ボル タメ ント の 効果 を 得 て い ます (リス ト 3-6)。 32 
の トー ン を 合成 すれ ば ょ より スペ ー シ ー で 広がり の ある 音 が 得 
られ ます 。 
き の エ コー 

音 が 物体 に 反射 し て 帰っ て くる と , そこ に 時 間 の 遅れ を 生 
じ エ ュー 効果 が 得 ら れ ま す 。 こ の 遅れ を ソフ トウ ェ ア で 作っ 
て や ば , 同様 の 効果 が 得 ら れる は ず で す 。 

ここ で は PSG の 3 つの トー ン ・ ジ ェ ネ レー タ を 利用 し て 
同じ 音 を 少し づつ 遅らせ て 演奏 し て いま す 。 も ちろ ん , xO 
音 に 比べ て 反射 し て 来 た 音 は 小さ ろ い は ず な の で , 音量 も だ ん 
だ ん 小さ くし な けれ ば な り ま せん 。 リ スト 3-7 の echo 1 で 
始ま る サブ プルー チン で は , この 遅れ 時 間 と 音量 を 自由 に 設定 
で きる よう に し て いま す 。 ЖҰ, お 風呂 で 歌う と うま く 聞 こ 
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える よう に , この プロ グラ ム を 使っ た と き の 効 果 は 大 きく , 
単調 な PSG の 音 が か な り 油 や か に 聞こ えま す 。 
Ф275 —– 

エレ クト ー ン で お な じみ の ビブ ラー ト の 効果 は , 音 に 低い 
周波 数 で FM 変調 も か ける と 得 ら 5 られ ます 。 ビ プラ ー ト を か 
ける と き に は この 低い 周波 数 を 発生 する LFO (Low Fre 
quency Oscillator) を 使う の で す が , PSG に は この LEFO 
に 相当 する 機能 が な い の で , これ を も ソフトウェア の 方 で 作り 
ます 。 

FM 変調 た と いう と ちょ っ と 面倒 くる そう で す が , 実際 に は 
トー ン ・ ジ ェ ネ レー タ の デー タ を 一 定 の 周期 で 増減 る きせ る だ 
け で 基本 的 に 難し いこ と は あり ませ ん 。 こ こ で は ビブ ラー ト 
の 深き と 周波 数 を 調節 びき る よう に し た た だめ, 一 定 の 周波 数 
を 作り 出す 部 分 (本 来 は LFO が 担当 する ) の 記述 が 若干 長 
く な り ま し た (リス ト 3-8)。 


=== სიდს === 
sound equ 9C999H 
sounds equ 9C199H 
Or9 9C499H 
CD99C1 bomb: call sounds 
19 C403 073E defb 7,3EH ; tone_a on 
11 C495 989F defb 8,9FH ; volume a := 15 
12 C487 FF defb 9FFH 2 end mark! . 
13 C408 210600 1d hl,6 ; tone a freq. := 20.8KHz 
14 H 
1 20.8KHz -> 244.6Hz 
1 ; 
17 C49B AF bombl: xor a 
18 C49C 55 1а а,1 ; hl := data 
19 C40D CD00C0 call sound 
20 C410 3C inc a 
21 C411 54 1d d.h 
22 C412 CD00C0 call sound 
23 C415 CD33C4 call delay 
24 C418 23 inc hl 
25 C419 7C 1d ah 
26 С41А E6FE апа 9FEH 2 freq. := 244.6Hz ? 
27 C41C 28ED jr 7, bomb1 ;š no . continue 
28 C41E CD99C1 call sounds 
29 C421 0736 defb 7.36H ; tone_a on , noise_a on 
30 C423 99FF defb 9 ,9FFH ; tone a freq. := 30.5Hz 
31 C425 919F defb 1,0FH 
32 C427 961F defb 6.1FH : noise freq. := 4KHz 
33 C429 0810 defb 8,10H ・ envelope a on 
34 C42B 9B24 defb 11.24Н 2 envelope time := 85 
35 С420 8CF4 defb 12.9F4H 


22% 


N — S O Q SSO Q p OO юе 


9D99 
FF 
C9 


919994 
9B 
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Ве 
20ЕВ 
c9 


2107С5 
CD29C5 
c9 


ЕЕӨӨ 
9991 
0500 
0001 
BE90 
000! 
B399 
0001 
9F00 
0001 
8E00 
0001 
7F00 
0001 
7700 
9991 


FFFF 


CD6EC5 
112691 
1B 

7B 

B2 
20FB 


DD21FFC5 
0603 
3E93 
99 
329BC6 
DDSE99 
DD5681 
DD7E91 
A7 
F252C5 
78 


delay: 
delayl: 


echol 


echo2: 
echo3: 


echo4: 


13,8 
9FFH 


bc,9499H 
bc 

a.c 

b 
nz,delayl 


entry 
modifies 


9C999H 
9C599H 


hl ,mdata 
echol 


9EFH 
9199H 
805Н 
9199H 
9BEH 
9199H 
9B3H 
9199H 
9FH 
0100H 
8EH 
9199H 
7FH 
9199H 
77H 
9199H 


9FFFFH 


$ 

iniech 
de,9126H 
de 

a,e 

d 
nz,echo3 


ix. voctbl 


b.3 

а.3 

b 

(voice),a 

e. (ix+count) 
ძ.(1X+C0სიL+1) 
a,(ix+count+1) 
a 

P,echo5 

a.b 


2 envelope shape : 


; end mark! 


none 
af.bc.de.hl.ix,iy 


freq. 
: length 


end mark! 


:= voice table 


; de := counter 


finish ? 
; no , continue 
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81 


55 C54E 3D dec a ; finish all ? 

56 C54F C8 ret z ; yes , return 

57 C558 1813 jr echo6 ; next voice 

58 š 

59 C552 DDB600 echo5: or (ix+count) ; count down complete ? 
60 C555 CCA5C5 call z.rdnext ; read next data 

61 C558 DD5E00 1d e.(ix+count) ・ count down 

62 C55B DD5691 1d d,(ix+count+1) 

63 C55E 1B dec de 

64 C55F 007300 1а (ix+count),e 

65 C562 DD7201 1d (ix+count+1) .d 

66 

67 C565 110400 echo6: 1d de,4 ; count down all voice ? 
68 C568 DD19 add іх,ае 

69 C56A 19CE djnz echo4 ; no , continue 

70 C56C 18BE Jr echo2 

71 ; 

72 ; initialize echo 

73 ; 

74 C56E 3E07 iniech: 1d a,7 2 turn switch 

75 C570 1638 1d d,38H ; tone a,b,c on 

76 C572 CD00C0 call sound 

77 C575 0603 1d b,3 : volume a,b,c := 9 
78 C577 3E98 1d а.8 

79 C579 1600 1а 4,8 

80 C57B CD00C0 inil: call sound 

81 C57E 3C inc a 

82 C57F 18FA djnz inil 

83 C581 3E93 1а а.3 ; Set voice counter 
84 C583 DD21FFC5 1d ix.voctbl ; ix := voice table 
85 C587 91F6C5 1а bc,dlytim ; bc := delay time table 
86 C58A 110400 1d de,4 

87 C58D F5 ini2: push af 

88 C58E @A 1d a, (bc) ; set delay time 

89 C58F 03 inc bc 

90 C590 DD7700 1d (ix+count ) ,a 

91 C593 9A 1d а, (bc) 

92 C594 03 inc bc 

93 C595 DD7791 ld (ix+count+1),a 

94 C598 DD7502 1d (іх+роіпё), 1 ; Set counter 

95 C59B DD7493 1а (іх+роіпё+1),ћ 

96 С59Е DD19 ааа ix.de : initialize all voice ? 
97 C5A0 LI POP af 

98 C5A1 3D dec a 

99 C5A2 20E9 jr nz.ini2 * no , continue 

100 C5A4 C9 ret 

101 ; 

102 ; read next data 

103 ; 

104 C5A5 3A9BC6 rdnext: 1d а, (уоісе) 

105 C5A8 C698 add а.8 

106 C5AA 1600 ld d.9 : volume := f 

107 C5AC CD00C0 call sound 

108 C5AF 006602 1d l.tix*point) ・ hl := data pointer 
109 C5B2 DD6603 1d h、(ix+POint+1) 

119 C5B5 56 1а d.(hl) : get freq. data 
111 C5B6 23 inc hl 

112 C5B7 5E 1а е.(Һ1) 

113 C5B8 23 іпс hl 

114 C5B9 7B 1а а.е 

115 C5BA A7 and a : (req. € 8 9? 

116 C5BB FAE9C5 jp m.rd2 ・ yes . do nothing 
117 C5BE B2 or a ・ freq. = 0 ? 

118 C5BF 2824 jr z.rdl ・ yes . volume := 8 
119 C5C1 3A9BC6 1d a.(voice) + set freq. 

120 C5C4 CB27 sla a 

121 С5С6 CD00C0 call sound 

122 C5C9 3C inc a 

123 C5CA 53 1d d.e 

124 C5CB CD00C0 call Sound 

125 5 

126 С5СЕ 3A9BC6 1а a.(voice) ; calc. adr. of volume data 
127 C5D1 5F 1а е.а 

128 C5D2 1600 1а 4.6 

129 C5D4 FD21FCC5 1а iy,volume 
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FD19 add iy,de 

05600 1ძ а, (іу) : get volume data 
SA8BCG 1а a, (voice) ・ set volume 
C698 add 

CD99C9 call 

5E : 1d ; get length data 
23 inc 

56 1d 

23 inc 

DD7399 : 1d (ix+count),e ;š set counter 
007201 1а (ix+count+1).d 

DD7592 1а (ix+POint) 。1 š save data pointer 
DD7403 1а (ix+pOint+1),h 

C9 ret 


data for echo ( delay time & volume ) 


lytim: defw 9999H ; voice_a delay time 
defw 0050H ; b 
defw BOAH ; ë 
volume: defb ФЕН ; моісе а volume 
defb 9BH E b 
defb 07H で 


equ 
equ 


defs 
defs 


: vibrato екісі 

; entry none 

; modifies af.bc,de,hl 
sound 9C999H 


9C699H 


2107C6 vibrat: hl,mdata 
CD29C6 vibl 
C9 


EF00 mdata: 9EFH 
0001 9199H 
0500 9D5H 
9991 9199H 
BE99 
9991 
8308 
0001 
9F99 
0001 
8E00 
0001 
7F00 
0001 
7700 
0001 


1 
2 
3 
4 
5 
6 
7 
8 
9 
9 
1 
2 
3 


9FFFFH ; end mark! 


$ 
a.7 ; turn switch 


38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
78 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 


C62B 
C62D 
C639 
C632 
C634 
C637 
C638 
C639 
C63A 
C63B 
C63F 
C649 
C641 
C642 
C643 
C645 
C647 
C649 


C64C 
C64D 
C64E 
C651 
C652 
C653 
C656 
C657 
C658 
C659 
C65A 
C65B 
C65E 
C65F 


C69D 


163E 
CD800C80 
3E08 vib2: 
1600 
CDeece 
4E 

23 

46 

23 
ED43CBC6 
78 

A7 

F8 

ВІ 

2811 
3E98 
169F 
CDeece 


AF 

51 

CDeece 

3C 

58 

CD08C0 

4E Vib3: 
23 

46 

23 

Е5 

CD61C6 

El 

18CF 

CD9DC6 cntdwn: 
112601 cntl: 
18 CიL2: 
78 

82 

29FB 


eB 
ЗАСЕС6 
Al 

29F1 
2ACBC6 
ED5BCDC6 


AF inilfo: 


(tnfreq),bC 
a.b 


d.c 
sound 
a 

d.b 
Sound 
C, Ch1) 
hl 

b, Chl) 
hl 

hl 
cntdwn 
hl 
vib2 


count down 


call 
1а 
dec 


inilfo 
de,0126H 
de 

а,е 

а 
nz,cnt2 


bc 
av(frqlfo) 
с 

nZ,cnt1 
hl.(tnfreq) 
de, (frqmod) 
а, (udflg) 

a 

(udflg),a 
93H 

Pe,Cnt3 

hl ,de 

cnt4 

hl ,de 
(tnfreq) ,hl 


a 
d.l 
sound 
a 

d,h 
sound 


a,c 
b 
nz,cntl 


initialize LFO 


xor 


a 


tone a on 


set volume 
volume := 8 


get freq. data 


save freq. data 
freq. < 8 ? 

yes , return 
freq. = 8 ? 

yes , volume := 8 
set volume 
volume := 8 


set freq. 


get length data 


count down 


intialize LFO 
delay 


count down 

oscillate low freq. ? 
no , continue 

hl := current freq. 


de := freq. modulation 
Check freq. up/down 


up . then tnfreq+frqmod 
down , then tnfreq-frqmod 


save freq. 


set freq. 


complete 


つづ き 
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32D9C6 (udflg)。a ; clear udflg 

ED5BCBC6 de,(tnfreq) ; calc. modulation data 

3ACAC6 a,(vibdpt) 

D69C 12 

2807 inilfl: z,inilf2 

CB3A d 

CBIB e 

3c a 

18F7 inilfl 

ED53CDC6  inilf2: (frqmod) ,de ; set modulation data 
e,9FFH : calc. LFO freq. 
a,(frqrat) 
a 


inilf3: z,inilf4 
e 
a 
inilf3 
inilf4: a,e 
(frqlfo).a ; set freq. data 


; data for LFO & work area 


frqrat: defb 
vibdpt: defb 


tnfreq: defs 
frqmod: defs 
frqlfo: defs 
udflg: defs 


3-2 | 音声 合成 


入力 され て きた 音声 デー タ に し た が っ て PSG の 出力 を 
ON Z OFF する と 音声 出力 が で きま す 。 実際 に 音声 合成 の 
原理 を 説明 する と か な り の 量 に な る の で ここ で は 省略 し ます 
ж, プロ グラ ム の 方 は 実に 簡単 で す (リス ト 3-9)。 


E entry 
Н modifies 


s == IOCS << 
cmtcom equ ・ cassette control 
brkchk equ ; sense shift+break 


cmtply equ : cmt Play 
cmtstp equ cmt stop 
ррі ・ 8255 2 port b 


Sound gC999H 
6C899H 
AF ; tone_a freq. := 9 
1699 
CD99C9 


3C 
CD99C9 


3E97 
163E ; tone_a on 
CD99C9 


91911A 
3E92 
CDECOD cmtcom 


CD4A00 brkchk 

2811 j 

ED78 i : read data 

E602 

1608 ; := 8 

2002 j i 0 then 
1600 := 0 
3E08 ; Set volume 
CD99C9 

18EA 


3E9 1 
CDEC9D cmtcom 
C9 


これ は 8255 ② の ポー ト B の ビッ ト 2 から カセ ッ ト の デー 
2 を 読み 込み 、 この デー タ に し た が っ て 単純 に PSG を ON 


3-2 音声 合成 


Z OFF し て いま す 。 しかし, カセット 内 臓 タ イプ の X1 で 
は デー タ の 信頼 性 の た めか な り 波 形 を 整形 し て くる の で , あ 
まり いい 音 が 出 ま せん 。 同様 の アゲ ログ ラム を MSX や FM 
7 な ど で 実 行 す る と か な り 明 瞭 に 聞こ える の で す が …。 ま 
k, オー ケス トラ の よう に 周波 数 帯域 の 広い も の に は 向い て 
KOT, せい ぜ い 話 し 声 程 度 し か 再生 で きま せん 。 

リス ト 3-10 は , 音 の デー タ を メモ リ に 記憶, 再生 する プ 
ログ ラム で す 。 記憶 する と き は 1 ビッ ト の デー タ を 1 バイ ト 
に な る まで 繰り 返し 。 それ を メモ リ に 入れ て いま す 。 逆 に 再 
生 す る と き は 1 バイ ト の デー タ か ら 1 ビッ ト ず つっ 取り 出し 
PSG を ON / OFF し て いま す 。83 行 目 の a レジ スタ に 入 
れる ディ レイ ・ カ ウン タ の 値 を 大 きく する と 記憶 で きる 音 の 
長き が 増し ます が , 逆 に 音質 は 低下 し ます 。 こ の プロ グラ ム 
で 声 の デー タ を 収集 し , X1 に し ゃ べら せ だ りす る と , 結構 
受け る (?) か も し れ ま せん 。 


record & play --- 
entry one 
modifies af.b.de.hl.ix 


+ -- IOCS -- 
cmtcom equ 9DECH : cassette control 
brkchk equ 994AH : sense Shift+break 


о Qo — O; Q . ом е 


cmtply equ 92H ; cmt play 
cmtstp equ 01H ; cmt stop 
ррі equ 1A91H : 8255 2 port b 


buffer equ 9CA80H 
bfsize equ 9FF99H-buffer+1 


Sound 9C999H 
gC999H 


$ record 


C900 3E02 a,cmtply і cmt play 
C902 CDEC9D cmtcom 

H loop 
C995 DD2199CA ix,buffer 
C989 218135 hl,bfsize 
C99C 91911A bc,PPi 

recl: 4.8 ; loop counter 
C911 CD6CC9 rec2: delay 
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1) А В3-10 


С914 
C916 
C918 
C919 
C91A 
C91C 
C91D 
C91F 
C922 
C924 
C925 
C926 
C927 


C929 
C92B 
C92E 


つづ き 


ED78 
E692 
1F 
1F 
CBIB 
15 
29F2 
DD7399 
DD23 
2B 
7C 
B5 
29E6 


3E9 1 
CDEC9D 
C331C9 


AF 
1699 
CD99C9 
3C 
CD99C9 
3E97 
163E 
CD99C9 


DD2199CA 
219135 
CD4A99 
C8 


playl: 


DD5E00 
0608 
CB1B 
169F 
3892 
1600 
3E08 
CD99C9 
CD6CC9 
19EE 


DD23 
2B 
7D 
B4 
29DE 
C9 


3E95 
3D 
C26EC9 
C9 


nz,recl 


a.cmtstp 
cmtcom 
Play 


a 
а.0 
sound 
a 
sound 
а.7 
d.3EH 
sound 


ix,buffer 
hl.bfsize 


nz,play1 


a.5 


a 
nz,delayl 


read data 


e := data 


: buffer full ? 
: no . continue 


cmt stop 


tone a freq. 


tone a on 


・ break ? 
s yes . return 


looP counter 


volume : 


; end ? 
・ no , continue 


; delay counter 


; data -> cy flag 
; volume :- 8 
if data = 9 then 


4-1 StellaF コ ン パ イラ の 概要 
4-2 エディ タダ 
4-3 モー ニタ 
4-4 コン バイ ラ 


Stellarm コ ン パ イラ ・ シ ステ ム は エディ タ , 


コシ パイ ジウ, ロー ダー т ӨЛ СВО 
THI, これ ら は オン メモ リ で 動作 する の で 
高速 で す 。 ま だ , 豊富 な ライ ブラ リ を 用 意 し 
で いる の で , | リアルタイム ゲー ム や シス テ 
ム ・ プ ロブ ラム な どの 開発 に 役立て て くだ さ 
い 。 


Б 
2 
= 
О) 
CL 
დ 
б) 
“9 
2%) 
> 


VI-ს > 


4-1 


Stellar 27/ v 209582 


Stellar コン パイ ラ ・ シ ステ ム の 特徴 は 次 の と な り で す 。 
⑱ エ ディ タ は 文字 列 の 検索 , 置換 、 ブロッ ク の 編集 (移動 , 
コピ ー な ど ) が 可能 で , CPM の ワー ド ・ ス ター の よう な 
フル スク リー ン ・ エ ディ タ で す 。 

Ө Stellar コン パイ ラ (4-4 参照 ) は .、 オン メモ リ の た だ め 高 
速 で す 。 オ ブ ジ ェクト は GVRAM (グラ フィ ッ ク RAM) 
に 出力 し 。 ロー ダー に より メイ ン ・ メ モリ に ロー ド し ます 

(201%, X 1 に は , GVRAM が 必要 で す ) 。 
モニ タ は , HuBASIC の モニ タ の 機能 に プレ ー ク ・ ポ イン 
ト の 設定 , レジ スタ の 表示 ・ 変 更 , さら に , 16 進数 の 加減 乗 
除 な どの 機能 を 追加 し て いま す 。 

Ө BASIC に ある APSS, FILES の 機能 が カセ モット ・ テ ー プ 
に 対し て 使用 で きま す 。 

@X 1 の 広い メモ リ 空 間 を 利用 し , ツー ス ・ プ ログ ラム の エ 
リア は 約 30 K バ イト ほど あり ます 。 


~ “ =, 

4-1-1 コマ ンド の 説明 

X 1 Ø Stellar は 次 の 10 個 の コマ ンド を 用 意 し て いま す 
( 各 コ マン ド の 最後 に は [ 記 キ ー を 押す こと ) 。 コ マン ド は ス 
クリ ー ン ・ エ ディ ッ ト で き 。, 大 文字 , 小文字 の どちら で も は 
混在 可能 で す 。 
@ SED 

プロ グラ ム を 作成 する た め に , エディ タ を 起動 し ます (4- 
2 で 詳し 述べ ます )。 
Ө COMP [/P] 

エディ タ で 作成 し た Stelar の プロ グラ ム を コン パイ ル し 
ます 。 オ ブ ジ ェクト は GVRAM に 出力 し ます 。“/P” を 付 
ける と コン パイ ル 時 の 情報 を プリ ンタ に プリ ント し ます (4- 
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4-| Stellar コ ン パ イラ の 概要 


4 で 詳し 述べ ます )。 
Ө LDOBJ [/P] 

GVRAM に 出力 され た オプ ジェ クト を メモ リ に ロー ド し 
ます 。“/P” を 付け る と ロー ド 時 の 情報 を プリ ンタ に プリ ン 
ト し ます (4-4 で 詳し 述べ ます )。 
⑳RUN[ &Hnnnn] (nnnn は 16 進数 ) 

プロ グラ ム を 実行 し ます 。“RUN &Hnnnn”itnnn 番 
地 か ら 6 実行 し ます (4-4 で 詳し 〈 述 べ ま す ) 。 
Ө CONT 

% break で 実行 を 中 断 し た プロ グラ ム を 再開 し ます (4-4 
で 詳し 述べ ます )。 
@ MON 

モニ タ を 起動 し ます (4-3 で 詳し 〈 ダ 述べ ま す )。 
Ө APSS+ 

カセ ッ ト ・ テ ー プ の 頭 出 し を FAST 方 向 に し ます 。 
SHIFT+BREAK キー, ^C (CTRL キ ー と C を 同時 に 押 
3), まだ は カセ モッ ト の スト ッ プ ・ キ ー を 押す こと に より 途中 
で 実行 を 止め る こと が で きま す 。 
C APSS 一 | 

カセ ッ ト ・ テ ー プ の 頭 出 し を REW 方 向 に し ます 。 
SHIFT+BREAK キー, °C, また は カセット の スト ッ プ ・ 
キー を 押す こと に より 途中 で 実行 を 止め ある こと が で きま す 。 
Ф FILES [/P] 

ファ イル の 一 覧 表 を 画面 に 表示 し ます 。“P" を 付け る と 
ファ イル の 一 覧 表 を プリ ンタ に プリ ント し ます 。 
@ BOOT 

ІРІ, BOOT し ます (電源 ON と 同じ で す )。 


4-1-2 ノア ン ン ニョ ヨン キ ー 

コマ ンド ・ モ ー ド 時 に お いて , ファ ンク ショ ン ・ キ ー の 設 
定 は 表 4-1 の よう に な っ て いま す (コー ルド ・ ス ター ト 時 に 
設定 )。 
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新た に ファ ンク ショ ン ・ キ ー の 設定 を 変え を る に は コマ ン 
ド ・ モ ー ド の 時 “MON 剛 " と 打ち モニ タ に 入り , ファ ンク シ 
ョ ン ・ キ ー バ ッ フ アァ を 変更 し て くだ さい 。 変更 後 , ホッ ト ・ 
スタ ー ト (G 1 4 A 3 較 ) すれ ば , 変更 し た ファ ンク ショ 
ン ・ キ ー が 画面 の 下 に 表示 きれ コマ ンド ・ モ ー ド に な り ま す 。 
ファ ンク ショ ン ・ キ ー バ ッ フ ァ は 0F 42 是 か ら 始 まり ます 。 
1 つの ファ ンク ショ ン ・ キ ー バ ッ フ アァ の 長 る は 16 バ イト か ら 
な り , 10 個 の エリ ア (合計 で 16 X10 ニ 160 バイ ト ) を 持っ て 
いま す 。 フ ァ ン クシ ョ ン ・ キ ー バ ッ フ ァ の 構造 は , 最初 の 1 
バイ ト が 定義 バイ ト 数 (0—15), 残り の 15 バイ ト が 定義 文 
字 で す 。 定義 し た 文字 の 残り の 部 分 に は スペ ー ス (20H) 
を 設定 し て くだ さい 。 


EID ニコ マン ドモ ー ド 時 の ファ ンク ショ ン の 内 容 


SED 
COMP 
LDOBJ 
CONT 
RUN 


MON 
APSS+ 
APSS— 
FILES 
RUN&H 


4-2 エディ タ 


1-2 


コマ ンド ・ モ ー ド の と き に F 1 を 押す か , また は “SED D” 
と 入力 する と エディ タ に 入り ます 。 

エディ タ の 使用 中 に コマ ンド が わか ら な く な っ だ と き は 
^J (CTRL キー と 丁 を 同時 に 押す ) を 押す と コマ ンド 表 
( 表 4-2) が 表示 る れる の で 参考 に し て くだ きい 。 コ マン ド 
は , 

・ カ ー ソ ツル 移動 

・ イ ン サ ー ト & デ リー ト 

c アマ ァ イシ ンド を リプ レス 

・ ゲロ ッ ク ・ オ ペレ ー シ ョ ア 

・ そ の 他 
に 大 別 で きま す 。 表 中 で , た と えば QF は CTRL キー を 
押し な が ら 5Q と FE を 続け て 打つ こと を 意味 し ます 。 

ファ ンク ショ ン ・ キ ー の 設定 は エディ タ に 入る と 表 4-3 の 
よう に 設定 され ます 。 


«IE і>450:7/ғх 


@ カー ソル 移動 
| 文字 左 へ ^ (5) | 文字 右 へ 
IEZA š 1 語 右 へ 
1 行 上 へ БР. ITFA 


1 ペー ジ 上 へ Š | ペー ジ 下 へ 


スク ロー ル ・ ダ ウン Š スク ロー ル ・ ア ッ プ 
テキ スト の 先頭 へ š テキ スト の 最後 へ 
カー ソル を プ ブロッ ク の 先頭 へ 

カー ソル を ブロ ッ ク の 最後 へ 

TAB 


9:25 
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@ インサート & デリ ー ト 
“ү 挿入 モー ド の 切り 換 へ 
^N | 行 挿入 
^G カー ソル の 下 の | 女 字 を 削除 
4 カー ソル の 前 の | 文字 を 削除 
T カー ソル の 右 の | 語 削除 
RI カー ソル の ある 行 の 削除 
" カー ソル の 位置 か ら 行末 まで 削除 


F 


@ ファ イン ド & リ プレ イス 
^ QF 検索 
b e 再 検索 


@ ブロ ッ ク ・ オ ペレ ーション 
^ KB,FI プロ ッ ク の 始点 マー ク ブロッ ク の 終点 マー ク 
^ KC プ ブロッ ク の コピ ー プロ ッ ク の 移動 
ブロ ッ ク の 削除 マー カー の 削除 
KP ブロ ッ ク の 印字 プロ グラ ム の セー ブ 
プ ブロッ ク の リー ド プロ ッ ク の ライ ト 
プロ グラ ム の 削除 


ヘル プ ・ メ ッ セ ー ジ の 表示 
プロ グラ ム の 印字 
ライ ン ・ サ ー チ 

コマ ンド ・ モ ー ド に 戻る 


< 待 写 堅 馬 エディ タ 使 用 時 の ファ ンク ショ ン ・ キ ー の 内 容 


ブロ ッ ク の 始点 マー ク 

プ ブロッ ク の 終点 マー ク 
マー カー の 削除 
カー ソル の 前 の | 文字 を 削除 
コマ ンド ・ モ ー ド に 戻る 


カー ソル を プ ブロ ッ ク の 先頭 へ 
カー ソル を ブロッ ク の 最後 へ 
カー ソル を テキ スト の 先頭 へ 
カー ソル を テキ スト の 最後 へ 
カー ソル の 位置 か ら 行 末 ま で 削除 


94 


4-2-1 カー ノル 移動 


カー ソル は BASIC を 使っ て いる と き の カ ー ソ ル の 動き と 
は 少々 異な り , 文字 の な いと ころ に は カー ツル を 移動 で きま 
せん (多少 違和感 が ある と 思い ます が , すぐ に 慣れ る で し ょ 
うぅ う )。 プ ログ ラム を 1 行 打ち 込ん だ 6 較 キ ー を 押し ます が , 
(4%--2 ASCII ユー ド (ООН) も 1 文字 と し て 扱い ます 。 
カー ソル を 移動 きせ る に は , 次 の コマ ンド また は キー を 使 
いま す 。 
⑯ カ ー ソ ル ・ キ ー 

BASIC と 同様 に 上 下 に 1 行 , 左右 に 1 文字 単位 で 移動 し 
ます 。 
カー ソル ・ キ ー と 同じ 動作 を する も の 

CETE, XCF, D で 右 ,  S で 左 へ カー ツル が 移動 
し ます 。 こ れ ら の キー は CTRL キー の 近く に あり , 左手 の 
小指 で СТВІ キー を 押し な が ら 人 差し 指 や 中 指 を 使っ て 片 
手 で 操作 で きま す 。 
スク ロー ル 

сЕ,  Z で 下 へ 1 行 分 スク ロー ル し ます 。 ま た , R 
Ch,  C で 下 へ 画面 の 半分 ( 12 行 分 ) を いち ど に スク ロー 
ル し ます 。 
ワー ド 単 位 の カー ソル 移動 

“ IC 1 語 分 右 へ , AT 1 語 分 左 ヘ カー ツル が 移動 し ま 
%; 
057 

^I, HTAB キー で カー ツル が 8 カラ ム 移 動 し ます 。 こ 
れ を 使っ て リス ト を 見 や すく で きま す 。 ま た , タプ も 1 個 の 
文字 (ASCII コー ド の 09 H) と し て 見 な し て いま す 。 
その 他 

ファ イル (この 場合 ,、 ソー ス ・ プ ログ ラム の こと ) の 先頭 
へ 移動 する と 上 き は QR また は F8 で , ファ イル の 終わ り へ 
は QC ま た は F 9 で 移動 し ます 。 ま た , QB また は F6 で 
ブロック の 始め , QK ま た は F 7 で プ ブロック の 終わ り に 移動 


4-2 エディ タ 
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し ます (ブロ ッ ク は ブロ ッ ク ・ オ ペレ ーション を 参照 の こ 
Ез, 


Део イン リー ドア デリ リード 


ここ で 説明 する コマ ンド は 文字 や 行 の 挿入 や 削除 に 使い ま 
す 。 
⑯ オ ー バ ー ラ イト と イン サー ト ・ モ ー ド の 切り 換え 

テキ スト の 入力 に は 2 つの モー ド (オー バー ライ ト ・ モ ー 
ド と イン サー ト ・ モ ー ド ) が あり , 最初 に エディ タ を 起動 し 
た と き は , オー バー ライ ト ・ モ ー ド に な っ て いま す (画面 の 
最上 段 に OVERWRITE と 表示 )。 オ ー バ ー ラ イト ・ モ ー ド 
で は , 古い テキ スト を 新しい テキ スト で 置き 換え だ いと き に 
使い ます 。 文字 を 入力 する と カー ツル 位置 に あっ た 文字 が 入 
力 し た 文字 に 置き 換え られ ます 。 

イン サー ト ・ モ ー ド は 現在 の テキ スト の 中 に 新しい テキ ス 
ს を 挿入 し て いき ます 。 新しい テキ スト を 入力 する と , カー 
ツル より 右 に ある テキ スト は 右 に 移動 し て いき ます (画面 の 
最上 段 に INSERT と 表示 )。 V Ç 2 つの モー ド 間 の 切り 換 
え を 行ない ます 。 
@ 1 行 挿入 

“ MC 1 行 挿入 が で き , カー ツル の 位置 は 変わ り ま せん 。 
まだ , イン サー ト ・ モ ー ド の し とき に [キー を 押せ ば 1 行 挿 入 
が で き , カー ソル は 次 の 行 の 先頭 に 移動 し ます 。 こ れ を 利用 
する と 行 の 分 割 が どき ます 。 分割 する に は カー ツル を 行 の 分 
割 し た い 所 に 移動 し て ,。 N ま た は 回 キー を 押し ます 。 
@ 1 文字 削除 

~ G で カー ソル の 下 の 1 文字 を 削除 し ます 。 F 4 で カー ソ 
ル の 前 の 文字 を 削除 し ます (FARÀ ^H GER). GE 
利用 し て 行 の 連結 が で きま す 。 連結 す る に は 行 の 最後 に リタ 
ー ン ・ コ ー ド (0 DH) が 入っ て いる こと を 利用 し て , これ 
を GT で 削除 する と 次 の 行 と 連結 きれ ます 。 
Ө 1 行 削除 


“ Y で カー ソル の ある 行 を 削除 し ます 。 
カー ソル 以後 の 削除 

^ で カー ツル の ある 位置 か ら 右 を ワー ド 単 位 で 削除 し ま 
+, 

” QY また は F 15 で カー ソ ツル の ある 位置 か ら 行 の 終わ り 
まで 削除 し ます 。 Y, 工 と 混同 し な いよ うに し て くだ さい 。 


へ 放さ 

4-2-3 ファ イン ド & リ ブレ イス 

これ は ソー ス ・ プ ログ ラム の 中 か ら 任 意 の 文字 列 を 検索 
(ファ イン ド ) し た り , 他 の 文字 列 に 置き 換え る (リプ レイ 
A) コマ シド で す 。 
ファ イン ド 

"QF を 押す と 画面 の 左上 で “Find ?" と 聞い て くる の で , 
捜し た い (50 文字 まで の ) 文字 列 を 入れ [ 剛 キ ー を 押し ます 。 
この と き の 文 字 列 の 訂正 は DEL キー を 使い ます (カー メン 
ル ・ キ ー は 使え ませ ん ) 。 

検索 文字 列 を 指定 する L, 次 に “Options? (? For 
Info) "と 聞い て きま す 。 以下 の オォ オプション (大 文字 , 小 文 
字 共 に 可 ) が 使え を ます (オプ ショ ン の 並び 方 は 自由 )。 


B… 逆 方 向 に 検索 し ます 。 つ まり , 現在 の カー ソル の 位 
置か ら フ ァイル の 先頭 に 向かっ て 検索 を 行ない ます 。 
…nmn は 1 か ら 99 ま で の 数 で す 。 現在 の カー ソル の 位置 
か ら 数 を えて, n 番 目 に 表 わ れ る 検索 文字 列 を 検索 し 


X4. 
… オ プション ・ メ ニュ ー を 表示 し ます 。 こ の 状態 で 再 
び オ プシ ョ ン の 指定 が で きま す 。 


オォ オプ ショ ン の デフ ォ ル ト は 順 方 向 検索 (ファ イル の 最後 に 
向かう 検索 ), n= 1 で す 。 
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ォ プ ショ ン の 例 
… 現 在 の カー ソル の 位置 か ら 逆 方 向 に 1 番目 に 表 わ 
れる 検索 文字 列 を 検索 し ます 。 
…10 番 目 に 表 わ れ る 検索 文字 列 を 検索 し ます 。 


この 例 は 2 つと も 同じ 機能 で , 現在 の カー ソル の 
位置 か ら 逆 方 向 に 10 番 目 に 表 わ れ る 検索 文字 列 を 
検索 し ます 。 


オォ オプション の 並び を 入れ だら, 最後 に 刀 キ ー を 押し て くだ 
る さい 。 オ プシ ョ ン で 何 も 指 定 し な いで に 較 キ ー を 押す と , n = 
1 の オプ ショ ン を 指定 し た の と 同じ で す 。 ま だ , オプ ショ ン 
で “B” の み を 指定 する と“B 1” を 指定 し た こと に な り ま す 。 
検索 文字 列 が 見 つか る と, カー ツル は を の 文字 列 の と ころ に 
移動 し ます 。 検 索 は し を 使っ て 繰り 返す こと が で きま す 。 
@ リ プレ イス 

7“ QA を 押す と ファ イン ド と 同様 に “Find と 聞い て くる 
の で 検索 文字 列 を 入力 し ます 。 次 に “Replace With?” と 聞 
いて くる の で 置き 換え た い (50 文字 まで の ) 文字 列 (置換 
文字 列 ) を 入力 し ます 。 ここ で , 単に 回 キー を 押せ ば 検索 文 
字 列 は 空 文字 列 に 置き 換え られ る (つま り 削 除き れる ) こと 
に な り ま す 。 さ る ら に , “Options? (? For Info)” と 聞い 
て くる の で , 以下 の オプ ショ ン (大 文字 , 小文字 共に 可 ) を 
使い ます (オプ ショ ン の 並び 方 は 自由 )。 


B… 逆 方 向 に 検索 置換 し ます 。 つ まり , 現在 の カー ソル 
の 位置 か ら フ ァイル の 先頭 に むか っ て 検索 置換 を 行 
な いま す 。 


G… 大 域 検索 置換 し ます 。 つ まり , 現在 の カー ソル の 
位置 に か か わら ず テ キス ト 全 体 を 探索 置換 し ます 。 


n…n は 1 か ら 99 ま で の 数 で す 。 現在 の カー ソル の 位置 
か ら 数 え 始 め て n 回 検索 文字 列 を 置換 し ます 。 
N… 確 認 な し で 置き 換え ます 。 検 索 文字 列 を 見 つけ る ご 
と に 止ま っ て “Replace (Y/N) ?" と 聞く こと は あ 
り ま せん 。 

P) … オ プシ ョ ン ・ メ ニュ ー を 表示 し ます 。 こ の 状態 で 再 
び オ ォ オプション の 指定 が で きま す 。 


オプション の デフ ォ ル ト は 順 方 向 に n ニ 1 で 確認 あり (Rë 
索 文字 列 を 見 つけ る ご と に 止ま っ て , “Replace (Y/ 
N) ER?) 検索 置換 で す 。 

ij, 検索 は SHIFT+BREAK キー で や め る こと が で き 
ます 。 


ォ プ ショ ン の 例 
N 5 … 検 索 文字 列 を 挿し て 確認 な し で 置き 換 を る こと を 


5 回 繰り 返し ます 。 
GN… 検 索 文字 列 を 挿し て 確認 な し で 置き 換え る こと を 
テキ スト 全体 に わた っ て 行ない ます 。 


ォ プ ショ ン の 並び を 入れ た ら 最 後に 回 キー を 押し て くだ きる き 
い 。 
⑥⑯ 再 検索 & 再 検索 置換 

“ 上 で 最後 に 実行 し た 検索 ある い は , 検索 置換 を 再 実行 し 
ます 。 こ の コマ ンド に より , 同じ 文字 列 を 検索 する と き な ど 
いち いち 文字 列 を 指定 する 必要 が な く 《 く な り ま す 。 これ は 新 し 
( 検索 , 検索 置換 する まで 有効 で す 。 


9 ~ 
4-2-4 ブロ ッ ク : オ ペレ ーション 
プ ブロック ・ オ ペレ ーション は , ファ イル (テキ スト ) の 一 
部 を 移動 , コピー, 削除 な ど を し た り , ブロ ッ ク の 印字 , 2 
セッ ト ・ テ ー プ へ プ ブロッ ク の セー ブ な ど に 使わ れ ま す 。 
プロ ッ ク を マー ク す る に は , テキ スト の 中 の プ ブロック に し 
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だ い 部 分 の 先頭 の 文字 に カー ソル を 移動 し , 「 ブ ロッ ク の 始 
D] の マー ク を , 最後 の 文字 の 後に 「 ブ ロック の 終わ り 」 の 
マー ク を 付け ます 。 こ の よう に マー ク を すれ ば ブロ ッ ク を 移 
動 し た り 。 コ ピー し だ り で きま す 。 
⑯ プ ロッ ク の 始点 を マー ク 

“ KB また は F 1 で ブロ ッ ク の 始点 を マー ク し ます 。 マ ー 
カー は “っ "で 示さ る れ ま す 。 す で に 始点 の マー ク が 指定 され て 
いる と き に 新た に 始点 の マー ク を 指定 する と , 前 に 指定 し た 
マー カー は 消さ る れ 新 し い マ ー カ ー が 設定 され ます 。 
@ プ ロッ ク の 終点 を マー ク 

KK また は F 2 で ブロ ッ ク の 終点 を マー ク し ます 。 マ ー 
カー は “ーー”" で 示 る れ ま す 。 す で に 終点 の マー ク が 指定 され て 
いる と き に 新た に 終点 の マー ク を 指定 する と , 前 に 指定 し た 
マー カー は 消 る れ 新 し い マ ー カ ー が 設定 され ます 。 
⑯ プ ブロック の コピ ー 

“ KC で マー ク し た ブロ ッ ク を 現在 の カー ツル か ら 先 に コ 
ピー し ます 。 元 の プロ ッ ク は 変化 し ませ ん 。 マ ー カ ー は 元 の 
プ ブロッ ク の 方 に 付い て いま す 。 カ ー ン ツル の 位置 が プロ ッ ク 内 
に ある と き は コピ ー る れず , エラ ー メ ッ セ ー ジ も 出 ま せん 。 
まだ , ブロ ッ ク の 指定 が 不 完全 の と き は エラ ー メ ッ セ ー ジ が 
出 ま す 。 
⑳ プ ブロック の 移動 

“ KV で マー ク し た ブロ ッ ク を 元 の 位置 か ら 現 在 の カー ツ 
ル の 位置 に 移動 し ます 。 元 の 位置 か ら プ ロッ ク は 消え , マー 
カー は 新しい 位置 に 移っ た プ ブロック に 付き ます 。 カー ソル の 
位置 が ブ グロック 内 に ある と き は 移動 で きず , エラー メッ セー 
ジ も 出 ま せん 。 
プロ ッ ク の 削除 

-KY で マー ク し た ブロ ッ ク を 削除 し ます 。 マ ー カ ー は ブ 
ロッ ク と 共に 削除 きる きれ, カー ツル が ブロ ッ ク 内 に あっ て も 削 
除 る れ ま す 。 
マー カー の 削除 

“KHš2 F 3 で 始点 , 終点 マー カー を 消し ます 。 マ ー 


カー は GL YY で 消す こと も で きま す 。 マー カー を 付け た 
まま , コン パイ ル す る と エラ ー に な る の で 必ず 消し て か ら 行 
な っ て くだ きい 。 
@ プ ロッ ク の 印字 

“KP で マー ク し た プロ ッ ク を プリ ンタ に 印字 し ます 。 
プロ グラ ム の セー プ ブ 

KS を 押す と “Save Filename?: "と 聞い て くる の で 
ファ イル 名 (ファ イル 名 : 13 C, ЖЕТ: 3 文字 ) ЖА 
HULT, 最後 に 団 キ ー を 押し て くだ きい 。 フ ァイル 名 の 訂正 
は DEL キー, カー ツル ・ キ ー が 使え ます 。 フ ァイル 名 の 指 
定 を する と テキ スト (ツー ス ・ プ ログ ラム ) を すべ て カセ ッ 
ト ・ テ ー プ に セー ブ し ます 。 カ セッ ト ・ テ ー プ が セッ ト さ れ 
て いな いと き や , テー プ ・ エ ンド の と き は 何 も し ませ ん 。 

も セーブ は ASCII 形式 で 行なわ る の で , BASIC な ど で 
ASCII セー プ ブ さ れ た テキ スト と 互換 性 が あり ます 。 
プロ グラ ム の リー ド 

KR を 押す と “Read Filename? : "と 聞い て くる の で , 
ファ イル 名 を 入力 し て , 最後 に 団 キ ー を 押し て くだ きい 。 7 
ァイル 名 の 指定 を する と , カセ ッ ト ・ テ ー プ か ら リ ー ド し だ た 
テキ スト は 現在 の カー ソル か ら 先 に 挿入 きれ ます 。 フ ァイル 
名 の 指定 を し な けれ ば 最初 の ファ イル を リー ド し ます 。 ファ 
イル は ASCII セー プ き れ だ た も の で な けれ ば リー ド で きま せ 
А 
⑳ プ ロッ ク の セー プ ブ 

^ KW を 押す と “Write Filename?:" と 聞い て くる の 
С, ファ イル 名 を 入力 し て , 最後 に 内 キ ー を 押し て くだ る 
い 。 プ ロッ ク の マー カー は セー ブ さ れ ま せん 。 

の プロ グラ ム の 削除 

~KQ を 押す と “Abandon a File? (Y/N) "と 聞い 
(550%, Y (また は y) を 押す と プロ グラ ム を す で て 削 
除 し ます 。Y 以 外 の キー を 入力 する と 何 $ も し ませ ん 。 
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4-2-5 その 他 
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⑳ ヘ ルプ 

^ 丁 で 表 4-2 の よう な コマ ンド 表 が 表示 され ます 。 こ れ に 
より コマ ンド を 忘れ た と き は , マニ ュ ア ル を 見 直す 必要 は あ 
り ま せん (も っ と も と いう コマ ンド を 忘れ た と き は 論 
で す が …)。 
@ プ ログ ラム の 印字 

“ P で プロ グラ ム (テキ スト ) を すべ て プリ ンタ に 印字 し 
ます 。 
ライ ン ・ サ ー チ 

"QL を 押す と “Line Number?: "と 聞い て くる の て, 
カー ソル を 移動 し た い 行 番号 (5 桁 ま で の 数 字 ) を 入力 し 
C, 最後 に 回 キー を 押し ます 。 こ の と き の 行 番号 の 訂正 は 
DEL キー を 使い ます (カー ツル ・ キ ー は 使え ませ ん ) 。 指 定 
し た 行 番号 が 存在 すれ ば その 行 の 先頭 に カー ツル が 移動 し ま 
+, 存在 し な い “ 0 行 " を 入力 する と テキ スト の 先頭 に カー ツ 
ル は 移動 し , テキ スト の 最後 の 行 数 より も 大 きい 番号 を 指定 
する と テキ スト の 最後 に カー ソル が 移動 し ます 。 
⑳ コ マン ド ・ モ ー ド に 戻る 

^ QM または, F 5 で コマ ンド ・ モ ー ド に 戻り ます 。 


43 モニ タ 


“MON Dł RIZ F 6 で モニ タ が 起動 し ます 。HuBASIC 
の 内 蔵 の モニ タ と ほとん と ど 同 じ で す が R, G コ マン ド が 異な 
bX, コマ ンド が 追加 る れ て いま す 。 


4-3-1 R コ マン ド 

この コマ ンド を 実行 する と モニ タ か ら 抜 けり , コマ ンド ・ モ 
ー ド に 戻り ます 。 戻ら な いと き は , スタ ッ ク が 破壊 され て い 
る と き で すか ら 6, G コ マン ド で “G14A3 較 "た し て ホッ 
ト ・ ス ター ト し て で てく だき るい 。 


4-3-2 G ロ コマ ンド 

指定 し た 番地 の サ プ ブルー チン を コー ル し ます 。 こ の と き に 
プ ブレーク ・ ポ イン ト を 最大 2 個 ま で 設定 可能 で す 。G コ マン 
ド は プレ ー ク ・ ポ イン ト の 設定 の 仕方 で , 次 の 3 種類 の 型 が 
あり ます 。 


(DG n (JJ 
QGn ай 


QGn а bØ 
(ここ で n, a, b は 16 進 数 の 4 桁 ま で の 数 値 ) 


(Di n で 示さ る れ た 番地 か ら 始 まき る サブ ルー チン を コー ル す 
る も の で , n を 省略 し た 場合 現在 の プロ グラ ム ・ カ ウン タ 
(X コ マン ド 参 照 ) が 示す アド レス か ら の プロ グラ ム を コー 
ル し ます 。 

② は プレ ー ク ・ ポ イン ト を 1 個 設定 し た も の で , a で 示 き 
れる 番地 に 達し た と き プ ログ ラム の 実行 が スト ッ プ し , その 
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と き の レ ジス タ と フラ グ を 表示 し ます 。 a の 位置 に ある 命令 
は 実行 きれ ませ ん 。 n を 省略 し た 場合 , 現在 の アプ ログ ラム ・ 
カウ ンタ が 示す アド レス か ら の プロ グラ ム を コー ル し て , Z 
レー ク ・ ポ イン ト を a に 設定 し ます 。 

③⑬ は a と ょ と b と いう 2 個 の プレ ー ク ・ ポ イン ト を 設定 する も 
ОС, どちら か の ブレ ー ク ・ ポ イン ト に 達し た と き プ ログ ラ 
ム は スト ッ プ し ます 。n を 省略 し た 場合 , 現在 の プロ グラ 
ム ・ カ ウン タ が 示す アド レス か ら の プロ グラ ム を コー ル し て , 
プレ ー ク ・ ポ イン ト を a と Db に 設定 し ます 。 


4-3-3 X コ マン ド 
この コマ ンド で レジ スタ , フラ グ の 内 容 を 表示 ・ 変 更 す る 
こと が で きま す 。X コ マン ド に は 次 の 2 種類 の 型 が あり ます 。 


OX 


②X レ ジス タ 名 


① は レジ スタ , フラ グ の 内 容 を 表示 する も の で す 。 フ ラグ 
は 2 進数 で も 表示 る れ ま す 。 た だ し , 裏 レ ジス タ の 内 容 は 表 
示し ませ ん 。 

⑨② は 指定 され た レジ スタ の 内 容 を 変更 する も の で , 指定 で 
きる レジ は A。 Е, В, G; D; Ey Hy სა АЕ; В 
Съ DE; НТ» IX, IY. SP, РС Зе 


4-3-4 日 コマ ンド 
この コマ ンド は 16 進数 の 加減 乗除 を 行ない ます 。 Hav 
ンド に は 次 の 4 種類 あり ます 。 


CH a -* b (JJ 
@Ha – b(J) 
(3H a * b (JJ 


(DH a ZXb(2 

(a, b は 16 進 数 で 最大 4 桁 、H, a, 演算 子 , b と の 
間 に は 任意 の スペ ー ス を 置く こと が 可能 , た だ し 同一 行 
に 限る ) 


① か ら 65③ の 演算 結果 は 16 進数 で 表示 きれ ます 。④ の 演算 
結果 は 16 進数 で 商 , 余り の 順序 で 表示 され ます 。 


4-3 モニ タ 
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14-4| コ ン パ イラ 


Stellar は 小 規模 プログ ラム の 開発 言語 で , 文法 的 に は , 
C と Pascal を 合わ せ だ た よう な 構造 (構造 化 プ ゲロ グラ ミン 
2, 全域 変数 と 局所 変数 が 可能 , 再帰 的 プロ グラ ミン グ ) を 
し て お り , 簡単 な ゲー ム や 制御 用 の プロ グラ ム な ど に 適用 で 
きま す 。 ま た , Stellar コン パイ ラ の オブ ジェ クト ・ プ ログ ラ 
ム は ROM 化 可能 で す 。 

Stellar の 最大 の 特徴 は , 変数 の メモ リ 割 りつ け , お よび 
演算 が すべ て バイ ト (符号 な し 8 ビッ ト ) 単位 で ある こと で 
す 。 デ ー タ が バイ ト 長 で すむ よう な プロ グラ ム な ら , 他 の コ 
ン パ イラ に 比べ 小さき な オブ ジェ クト ・ プ ログ ラム を 生成 する 
こと が で きま す 。Stellar に つい て は 「 新 言語 作成 の 技法 」 
(KERER. 小 社 刊 ) で , CPM バー ジョ ン が アセ ンプ 
ル ・ リ スト で 公開 る れ て いま す 。 


4-4-1 Stellar の 構文 と 文法 


構文 は 構文 図 ( 図 4-1) を 参照 し て くだ さい 。 
ここ で は , Stellar の 文法 を 次 の 五 つ に 分 け て 解説 し ます 。 
・Stellar プロ グラ ム の 構成 要素 
・ プ ログ ラム の 構造 
* x 
・ 式 
・ 変 数 と 定数 
Stellar の 言語 的 な 特徴 は 以下 の 通り で す 。 
英 小 文字 ペー ス で プロ グラ ム を 書く 。 
@ サ プル ー チ ン は な く , すべ て 関数 と し て 記述 する 。 
関数 は 値 を 戻さ な く て も よい 。 
@ 式 の 中 で 変数 へ の 代入 が で きる 。 ま た , 代入 を し な い 式 も 
か ける 。 


4-4 コン パイ ラ 


@ CPU 内 の レジ スタ (b, ix, іу) を 使う こと が で き 
る 。 


«УЕ Stellar 構 文 図 


引用 符 以外 の 文字 
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空白 の 文字 
B= t 
注釈 


Bi =š 


/ ま 以外 の 
任意 の 文字 


プロ グラ ム の 頭 書き gem 
8 ФО 


プロ グラ ム 名 


オプ ショ ン ・ ス イッ チ 


“252% 


4-4 コン パイ ラ 


«mm» --: 


トン ya トー 
EI d 
EI 
MT 


っ づく 


ж) デー タ 名 と コロ ン (:) の 間 に 
分 離 符 を 入れ て は な ら な い 。 


関数 の 頭 書き 


recursive 


110 


注 ) ラベ ル と コロ ン (: ) の 間 に 
分 離 符 を 入れ て は な ら な い 。 


“22 
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while 文 


Ce HOT TO 


4-4 コン パイ ラ 


return 文 


inline 文 


22% 
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コン バイ ル 制 御 文 
| 


include 


ik) 定義 と 宣言 の 中 に は %break は 書け な い 。 
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234 
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# | 3 
а || も 
6  # 
ЖЕТЕ 
E: 


| 
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«m --: 


条件 演算 関数 


(09-1 O0LESLO0u ESL 
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4-4 コン パイ ラ 


XXI) ラベ ル 名 , 関数 名 は , デー 
タ 宣 言 部 や inline 文 の 中 で 
の み 使 用 可能 。 

注 2) 関数 名 と 左 カ ッ コ “("、 そ し 
て 右 カ ッ コ ")" の 間 に 空 白 
以外 の 分 離 符 を 入れ て は な 
ら な い 。 


[1] Stellar プロ グラ ム の 構成 要素 

Stellar の ゲロ グラ ム は , 予約 語 , 名 前 , ЖИА, 定数 , x 
字 定 数 , 文字 列 定 数 , 特殊 記号 , それ に 分 離 符 と 注釈 の 私 つ 
で 構成 され て いま す 。 


Stellar は 59 個 の 予約 語 を 持っ て いま す ( 表 4-4)。 英 大 文 
字 で も 英 小文字 で も 同じ 意味 に な り ま す 。 だ た と えば 
"WHILE", *WHiLe", “WhiLe" は いずれ も 予約 語 “while" 


と 判断 る され ます 。 
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EIP Stellar の 予約 語 


dex inc 
debng include 
else inline 


elseif i overflow 


exit i parity 


plus 

port 

prog 

recursive 
memory return 


名 前 は 変数 や 定数 , 関数 な ど を 表し ます 。 

名 前 は , 英 数 字 (А-7, a—z, 0-9) と アン ダー ス 
a7 (-) か ら な る , 数 字 以 外 の 文字 で 始ま る 文字 列 で す 。 
長き に 制限 は あり ませ ん が , 意味 を 持つ の は 最初 の 12 文字 
まで で す 。 
信正 し い 名 前 の 例 

ABC 

.Ad0123 

abcdefghijk1mn… 初 め の 12 文 字 (1 まで ) 

まで が 名 前 と な る 。 


ab. XYZ 
@ ^7: 9 ii fl 
1AB … 数 字 で 始ま きっ て いる 。 
ab@cd … 名 前 の 中 に @ ( 英 数 字 で も _ で も な い ) が 
ある 。 
low … 予 約 語 は 名 前 と し て 使え な い 。 
数 値 定数 


数 値 定数 に は , 10 進数 と 16 進数 が あり ます 。 
10 進数 は 数 字 (0 一 9) だ けず で 構成 され た 文字 列 で , 0 


一 65535 まで の 値 で な けれ ば な り ま せん 。16 進数 は ドル 記号 
($) で 始ま る 数 字 と 英字 人生 F ド あるいは a 一 f で 構成 され 
た 文字 列 で , 16 進数 で 0 —FFFF まで の 値 で な けれ ば な り 
ませ ん 。 
例 
10 進数 123 0043 1023 32924 
3292 255 
16 進 数 $0 $78 $002b $ 3ff 
$80a6  $ff 


文字 定数 は 文字 自身 と を データ と し ます 。 

文字 定数 は 制御 コー ド 以 外 の 1 文字 を 引用 符 (') で 囲ん 
だ も の で , 文字 コー ド を 数 値 と し て 扱い ます 。 右側 の 引用 符 
は 省略 する こと が で きま す 。 


例 
A... $41 と 同じ mm…$63 と 同じ 
P’ $ Bl と 同じ w 827 と 同じ 
"А …$41 と 同じ 半 …$ 5C と 同じ 


文字 列 定数 は 文字 列 自身 と を データ と し て メモ リ 上 に 格納 す 
る 場合 に 使い ます 。 

文字 列 定数 は 二 重 引用 符 C) で 囲ま れ た 0 文字 以上 の 文 
字 列 の こと で す 。 二 重 引用 符 を 二 つ 続 け て 書け ば 文字 列 の 中 
に 一 つの 二 重 引用 符 を 入れ ん る こと が で きま す 。 


例 
”АВС012” … 文 字 列 ABC012 が メモ リ に 格納 され る 。 
"ABC""abc"  … 文 字 列 ABC"abc が メモ リ に 格納 され 
る 。 
- … 空 の 文字 列 。 何 も 格 納 さ れ な い 。 
"カナ 漢字 "  … カ ナ 文 字 , 漢字 も 使用 で どき る 。 た だ し 


漢字 は シフ ト ]JIS ユ ー ド だ け を 使う 。 
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特殊 記号 に は 33 個 の 演算 子 と 区 切り 記号 が あり ます GA 
4-5) o 
EID tans 


分 離 符 に は 空白 文字 (タブ も 空白 ), 行 の 終わ り , ERO 
三 つ が あり , 予約 語 。 名 前 , 定数 , 特殊 記号 を 区 切る だ め に 
用 いら れ ま す 。 こ れ ら が 構文 的 に 明確 に 識別 で きる 場合 に は 
省略 で きま す 。 


if а= ФЬ then b := а and $F ; 
YT T y # 4 T t t 


1 は 分 離 符 が 必要 な 部 分 
t は 分 離 符 が 必ず し も 必要 で な い 部 分 


注釈 
注釈 は /* で 始ま り * ノ で 終わ る 文字 列 で す 。* ブ の 2 文 


字 を この 順 で 注釈 の 文字 列 中 に 書く こと は で きま せん 。 
注釈 は コン パイ ル , 実行 に 何ら 影響 を 与え ませ ん 。 


[2] プロ グラ ム の 構造 
Stellar の プロ グラ ム は 主 プ ログ ラム と いく つか の 関数 か 
ら な っ て いま す (Ed 4-2). 
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CE 2055 ожа 


プロ グラ ム の 頭 書き 


全域 的 定数 の 定義 
全域 的 変数 。 デー タ の 宣言 


( 主 プ ログ ラム ) X の її О 


全域 的 定数 の 定義 
全域 的 変数 , デー タ の 宣言 


(関数 ) 
関数 の 頭 書き 


局所 的 定数 の 定義 
局所 的 変数 。 デー タ の 宣言 


x თ 並 U 


(1) プロ グラ ム の 頭 書き 

Stellar の ゲロ グラ ム は 必ず 頭 書 きか ら 始 ま ら な けれ ば な 
り ま せん 。 

頭 書き で は プロ グラ ム に 名 前 を つけ , コン パイ ラ に 対す る 
指示 を 与え ます 。 こ の 指示 は オプ ショ ン ・ ス イッ チ と いい , 
次 の 皿 つ が あり ます (英字 は 小文字 で も 大 文字 で も 9D), 

% DP : アドレス … オ ブ ジ ェクト ・ コ ー ド の ロー ド 開 始 ア ド 


レス を 指定 する 。 
%d : アド レス … 変 数 や ワー ク ・ エ リア の 先頭 アド レス を 
指定 する 。 
9%S : アドレス … ス タッ ク の ボトム ・ ア ドレ ス を 指定 する 。 
%debug … デ バッ グ ・ モ ー ド で コン パイ ル す る 。 


%р, 96d, 9% Ss は コン パイ ル 時 の アド レス を 指定 する も 
ОТ, 各 ア ドレ ス は 図 4-3 の よう に 対応 し ます 。 指定 さ れ な 
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いと デフ ォ ル ト の アド レス に な り ま す 。 デ フォ ルト は %D : 
$000, 24: $d900, %5: $f900 と な り ま す 。 

9 debug を 指定 し な いと , コン パイ ラ は デバ ッ グ の た め の 
文 を 注釈 し し て 扱い ます 。 


«SE オプ ショ ン ・ ス イッ チ %6p, %d,%%s と オプ ジェ クト ・ プ ログ ラム 
26p:xxxx † 低 ア ドレ ス 


ラン タイ ム ・ ル ー チ ン 
る た と えば 


373250 dise %р:0, %d:$2000,%s:$2400 


と オプ ショ ン ・ ス イッ チ が 指定 され た 場合 , 
%ძ:იიიი コン パイ ラ は 次 の よう に オブ ジェ クト ・ コ ー ド 
を 生成 し ます 
アド レス (16 進 ) 


0000 
ラン タイ ム ・ ル ー チ ン 


変数 , ワー ク ・ エ リア 


スタ ッ ク ・ エ リア 


jË) ххх, nnnn mmmm は 数 値 定数 の こと 。 
スタ ッ ク ・ エ リア 


例 

prog TEST1( ) ; 

… プ ログ ラム 名 は TEST 1, オプ ショ ン ・ ス イッ チ の 指定 
# სა 

prog utl (% P: $9000, % d : $ A000, %5: 

$ F000) 

… プ ログ ラム 名 は ut 1, オブ ジェ クト ・ コ ー ド は 16 進数 
で 9000 番地 か ら , 変数 , ワー ク ・ エ リア は AO000 番地 , 
スタ ッ ク ・ ボ トム は F000 番 地 。 

prog fxn (% debug, 96d : 39168) ; 

… プ ログ ラム 名 は fxn で , コン パイ ル は デバ ッ グ ・ モ ー 
F, オブ ジェ クト ・ コ ユー ド は 39168 (16 進数 で 9000) Ж 
地 か ら 出 力 。 
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(2) 定義 と 宣言 

定義 宣言 は , 定数 定義 部 , 変数 宣言 部 、 デー タ над, 
お よび コン パイ ル 制 御 文 か ら な り ま す 。 

ュ ン パイ ル 制 御 文 に つい て は [3] で 解説 し て いま す の 
で , そちら を 参照 し て くだ さい 。 

定数 定義 文 は アモ ンプ ブラ 言語 の EQU 命令 に 相当 する も の 
С, 定義 きれ た 名 前 の こと を 定数 名 ほ い いま す 。 定数 名 は プ 
ログ ラム 中 で は 数 値 定数 , 文字 定数 と 同等 に 扱わ れ ま す 。 
定数 名 で 定義 で きる の は , 定数 式 で 計算 る れ た 16 ビット 
長 の 値 で す 。 定 数 式 と は 定数 (数 値 や 文字 ある い は 定義 ず 
み の 他 の 定数 名 な ど ) 同士 を 加減 し た 式 の こと で , 計算 は 和 常 
に 16 ビッ ト 長 で 行わ れ オ ー バ ー フ ロー は 無視 され ます 。 


cons cl: —120, xyz: = $af, c2: =cl+'a'—xyz; 


1 


1 
定数 名 cl を 定数 名 xyz を 定数 名 c2 を 
120 と 定義 Фа Ж с!+'а'—хуг 
の 計算 結果 の 値 と 定義 


変数 宣言 部 は , プロ グラ ム 中 で 使う 変数 を 二 言 する 部 分 
T, 使わ れる 変数 は すべ て ここ で 宣言 し て か な けれ ば な り 
ませ ん 。 こ こ で は 変数 に アド レス を 割り つけ る だ け で , 初期 
値 は 出力 し ませ ん 。 で すか ら , 初期 値 が 必要 な 変数 は プロ グ 
ラム 中 で 値 を 設定 し な けれ ば な り ま せん 。 図 4-4 は 変数 の 宣 
言 と メモ リ へ の 割り つけ を 示し た 例 で す 。 

デー タ 宣言 部 は 定数 を メモ リ 上 に 記憶 する た め の も の で 
記憶 し た 定数 に は デー タ 名 が つけ られ ます 。 デ ー タ 名 は 代入 
で き な い こと を 除き , プロ グラ ム 中 で 変数 と 同等 に 使う こと 
が で きま す 。 

定数 の 前 の byte や word は , 記憶 が バイ ト 単 位 な の か ワ 
ー ド 単位 な の か を 指定 する も の で す 。 バ イト で 記憶 する 場合 
は byte の 指定 は 省略 で きま す 。 ま た だ た, word の 代わ り に # を 
使う こと も で きま す 。 
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data dl: byte 120, word $3fe, *ABC”, 


62:  *abc**i2*. 0, 1251 ; 


ЛЕЕ .. 


ーー 
['#][кЕ]оз]4!]42]4з]в1]62]вз]22]з1]зг]оо]кв[ оо] 
d2 


CED ADEEL х=) ^о) 
変数 の 宣言 


Var a, b at($5c), c(0), d(2), e(1), f(3)at($80), &g(5) h; 
пана 


メモ リ へ の 割り 付け 状態 


変数 , ワー ク ・ エ リア 


) 


0080 番 地 


ж) e【I) と し て いる 所 は 
単に e と し て も 同じ 。 


@at の 付か な い 変 数 は %d で 設定 し た エリ @ at の 付い た 変数 は 指定 され た アド レス を 
ア の 方 に 取ら れる 。 一 つの 変数 の 大 き さ は 変数 の アド レス と し , 変数 , ワー ク ・ エ リア 
すべ て 1 バイ ト で , 〔 定 数 式 〕 で 定数 式 の 計 に は 領域 を 取ら な い 。 

算 結果 の 長 さ (バイ ト 数 ) だ け の 領域 が 取 at の 付い た 変数 に 〔 定 数 式 ] を 書い て も そ 
られ る 。 れ は 無視 され 注釈 と し て 扱わ れる 。 
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(3) 主 プ ログ ラム 
Stellar の ゲロ グラ ム は 必ず 主 プ ログ ラム か ら 実 行 る され ま 
す 。 主 プロ グラ ム は 一 つの 複合 文 と し て 書か れ ま す 。 


(4) 関数 の 頭 書き 

関数 の 頭 書き は , ここ か ら 関 数 が 始ま る こと を 宮 言 する た 
め の も の で , 一 つの 関数 は 関数 の 頭 書 き と プ ロッ ク に より 構 
成 さ れ て いま す 。 

再帰 的 に 呼び 出す 関数 は , 関数 名 の まえ に recursive と 書 
か ね ば な り ま せん 。recursive と 書か れ て いる 関数 は , 呼び 
出る きれ た と き 局 所 的 な 変数 の 値 を も ス タック に 保存 し ます 。 
Stellar で は , 関数 に 実 引数 の 値 を 渡し ます 。 引 数 に は 8 
ビッ ト 長 と 16 ビット 長 の 二 種 類 が あり , 8 ビット 長 の 値 は 
仮 引数 (局所 的 な 変数 ) に , 16 ビッ ト 長 の 値 は 这 ある い は 
iy の イン デック ス ・ レ ジス タ に 格納 され ます 。 関 数 の 頭 書 き 
に 書か れる 仮 引数 や イン デック ス ・ レ ジス タ 名 は 次 の よう な 
意味 を 持っ て いま す 。 


順序 は 変え られ な い 。 
ーー 
関数 名 ( 仮 引数 |, 仮 引数 2, …, 仮 引数 n iix , #iy) ; 


4-4 コン パイ ラ 


| je m 


仮 引 数 の 数 は 0 て 32 個 まで , 
33 個 以上 書け る が 33 個 目 以降 


ス ・ レ ジス タ iy に 受け る 。 


に は 実 引数 は 格納 され な い 。 の 指定 が な いと , 関数 呼び 出 
し 前 の イン デック ス ・ レ ジス タ iy の 


内 容 が 保存 され , 関数 実行 後 も 
iy の 内 容 は 変化 し な い 。 

# せ の 指定 が ある と , イン デ ッ 
クス ・ レ ジス タ iy の 内 容 は 保存 
され ず , 関数 内 で iy に 対す る 操 
作 が ある と iy は 変化 する 。 


好 ン デ ックス ・ レ ジス タ ix に つい 


て 上 と 同様 。 


125 


126 


(5) ブロ ッ ク 

プ ブロッ ク は , 定義 と 宣言 ,。 な よび ーー つ の 複合 文 に より 構成 
きれ ます 。 

プ ブロッ ク 内 で 定義 ある い は 宣言 され た 定数 名 , 変数 名 , F 
ー タ 名 は 局所 的 な 名 前 と し て 扱わ れ , 有効 範囲 は その 関数 内 
МОТ. 


(6) 名 前 の 有効 範囲 

Stellar で は 名 前 の 有効 範囲 を 次 の よう に 決め て いま す 。 
で 局所 的 な 名 前 

仮 引数 , お よび プ ブロック 内 で 定義 され た 定数 名 , 変数 名 , 
デー タ 名 は 局所 的 な 名 前 で , 同一 関数 名 で の み 有 効 で す 。 主 
プロ グラ ム や 他 の 関数 か ら 6 は 使え ませ ん 。 全域 的 な 名 前 と 同 
じ 名 前 を 局所 的 な 名 前 と し て 定義 , 宣言 し た 場合 , その 関数 
内 で は 局所 的 な 名 前 を 優先 し , 全域 的 な 名 前 の ほう は 参照 で 
きま せん 。 

@ 全 域 的 な 名 前 

局所 的 な 名 前 以外 は すべ て 全域 的 な 名 前 で す 。 全域 的 な 名 
前 は , 主 プ ゲロ グラ ム や 関数 の 別 な く プ ログ ラム 全体 で 共通 に 
使え ます 。 全域 的 な 名 前 に は 関数 名 や 定数 名 , 変数 名 , デー 
タ 名 が あり , 関数 名 以外 は 定義 , 宣言 され た 以後 有効 に な り 
ます 。 関 数 名 に つい て は , 書か れ て いる 場所 に よら ず , すべ 
て の 場所 で 有効 で す 。 


ІЗІ 文 (ステ ー ト メン ト ) 

文 は 実際 に 計算 や 仕事 を する も の で , 図 4-1 に 示し た よう 
に 15 種類 あり ます 。 式 は 次 の [4] で 解説 する と し て , こ 
こ で は 式 以 外 の 文 に つい て 解説 し ます 。 

文 に は ラベ ル を つけ る こと が で きま す 。 ラ ベル は 主 プ ログ 
ラム や 各々 の 関数 内 で の み 有 効 な 局所 的 な 名 前 で す 。 


(1) #X 
何 の 動作 も し な い 文 の こと で す 。 
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(2) 複合 文 
複合 文 は いく つか の 文 を まとめ て 一 つの 文 と し て 扱う も の 
С, 文 が 書か れ て いる 順に 実行 が 行なわ れ ま す 。 


(4) ЖЖ 

if 文 は 式 の 計算 結果 が ゼロ 以外 の と き を 真 , で ゼロ の と き を 
偽 と し て いま す 。 真 の と き は then の 次 の 文 を , 偽 の と き は 
else の 次 の 文 を 実行 し ます 。else DUO X» II xoti, 
elseif と する こと が で きま す 。 

図 4.5 は 計 文 の いく つか の 形式 を 流れ 図 で 表わし た も の 
= 


if > then XI else X2 


if ЖІ then XI if ЖІ then ЖІ 

elseif 3X2 then 522 elseif 式 2 then 文 2 
f j f j 

elseif sin then Xn elsief хп then Xn 


ゼロ 以外 
式 n の 計算 
結果 は ? 


ゼロ 
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(4) while X 

繰り 返し の た め の 文 の 一 つ で す 。 

while 文 は , 式 の 計算 結果 が ぜ ゼロ に な る ( 偽 に な る ) まで 
式 の 後ろ の 複合 文 を 繰り 返し 実行 し ます 。 while 文 で は 始め 
に 式 の 計算 結果 を 調べ る た め , 場合 に よっ て は 後ろ の 複合 文 
が 一 度 も 実行 きれ な いこ と が あり ます ( 図 4-6)。 
ЖЕЛ» while 文 


while = ( XI 文 2 … 


式 の 計算 
結果 は ? 


ゼロ 以外 


(5) until X 

until 文 も 繰り 返し を 行なう た め の 文 で す 。 

until 文 は まず until の 前 の 複合 文 を 実行 し , その 後に 式 の 
計算 を 行ない ます 。 そし て 結果 が ゼロ (5) な ら る ら に も う 
一 度 until の 前 の 複合 文 を 実行 し , 結果 が ゼロ 以外 ( 真 ) な 
ら 6 繰り返し を 終え ます ( 図 4-7)。 


(6) for X 

for 文 は 流れ 図 で は 図 448 の よう に な り ま す 。for の 次 の 
変数 を 特に 制御 変数 と いい ます 。 : = の 後 の 式 を 初期 値 , to 
の 後 の 式 を 終値 と し て , 制御 変数 が 


B 制御 変数 の 値 > 終値 
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«EP until x 


Xn )until =: 


«ЕШ» for 文 


for 制御 変数 : = 式 | to 式 2 for 制御 変数 : = 式 | to 式 2 by #3 
( Жі X2 s xo ) (Жі X2 «Xn } 


制御 変数 一 式 | 制御 変数 一 式 | 


= 
| No 
4 > 
— d 


? 
w I 


注 ) temp2, temp3 は 一 時 記憶 の た め の ワ ー ク 。 
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ある い は 


制御 変数 の 値 2 256 


と な る まで 繰り 返し ます 。 こ の と き , by 式 の 増分 が 指定 きる 
れ て いれ ば 制御 変数 に その 増分 を 加算 し , 増分 の 指定 が な け 
れ ば 制御 変数 を 士 ] し ます 。for 文 で は 初期 値 , 終値 , 増分 
を 示す 各 式 を 繰り 返し の 前 に 計算 し ます 。 初期 値 は 制御 変数 
に 代入 きれ, 終値 , 増分 は メモ リ 上 の 一 時 記憶 域 に 記憶 し ま 
+, 繰り 返し の 途中 は その 領域 に 記憶 し た 値 を 使い ます 。 
Stellar の 場合 , 変数 は 1 バイ ト 長 ど だ け な の で , 繰り 返し 回 
数 の 最大 は 


for 变数 名 : = 0 to 255 


と し た と き の 256 回 で す 。 


(7) loop X 

loop 文 は 指定 され た 回 数 を 単純 に 繰り 返す だ け の 文 で す 。 
loop 文 を 流れ 図 で 表わす と 図 449 の よう に な り ま す 。 単純 
な 繰り 返し な ら 6for 文 より も loop 文 の ほう が コン パイ ル 後 
の オプ ジェ クト ・ コ ユー ド が 少な く て すみ ます 。 特 に 制御 変数 
名 の 代わ り に # を 使う と b レ ジス タ で ルー プ す る よう な オブ 
ジェ クト ・ コ ー ド が つく られ る た だ た だめ, る ら に 効率 が よく な り 
IT 


(8) goto X 
ラベ ル が 書か れ て いる 文 に 実行 を 移し ます 。 


(9) exit X 
複合 文 や while X, until X, for X, loop 文 の 繰り 返し 
か ら 抜 け 出 る と き に 使い ます ( 図 4-10)。 


(10) return 文 
関数 の 実行 を 終わ り , 呼び 出し た 主 プ ログ ラム や 関数 に 戻 
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る と き に 使い ます 。 関 数 の 最後 の return 文 は 省略 し て も 自 


動 的 に 挿入 る され ま す 。 ま た , 主 プ ログ ラム 内 の return Xi? 
stop 文 と 同じ 意味 で す 。 


«HEBR орх 


lop 制御 変数 , 式 ( XI 文 2 … Xn ) 
loop # 


制御 変数 一 | レジ スタ Bー | 


while 1<100 ( 


exit 文 が 実行 くさ れる と 矢印 の 先 の 
文 へ 実行 を 移す 。 
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(11) stop X 
プロ グラ ム を 終了 る せる た め の 文 で す 。 主 プロ グラ ム の 最 
後 の stop 文 は 省略 し て も 自動 的 に 挿入 る れ ま す 。 


(12) inline 文 
inline 文 は ゲロ グ ラム 中 に 機械 語 命 令 や デー タ を 入れ る た 
め の 文 で す 。 


(13) イン デック ス 操 作文 

イン デック ス 操 作文 は 二 つ の イン デック ス ・ レ ジス タ ix, 
iy を 操作 する た め の 文 で , 次 に 示す よう な 5 個 の 文 が あり 
ます 。 
set 文 

set 文 は イン デック ス ・ レ ジス タ に 定数 や 値 を セッ ト す る 
9. 

定数 し イン デック ス ・ レ ジス タ は 16 ビッ ト 長 で 扱わ れ ま 
す 。 式 は 8 ビッ ト 長 で 計算 きれ , イン デック ス ・ レ ジス タ の 
їй (16 ビッ ト 長 ) に 加算 また は 減算 る きれ ます 。 
例 


set ix : =  $3F2C; 
set iy := 258+а/ 3 ; 
set ix : = iy—-b*2; 
set ix : = 13, 
set iy :-— ix; 

Ө ахх 


ах 文 は イン デック ス ・ レ ジス タ に 変数 の 値 を ロー ド す る 
XC 

この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビッ ト に は 
変数 の 値 が . 上 位 8 ビッ ト に は 変数 の 次 の アド レス の 値 が ロ 
ー ド きれ ます 。 ldx 文 と 次 の stx 文 だ けが 変数 を 16 ビッ 
ト 長 で 扱い ます (04-11), 
Ө stx x 

stx 文 は イン デック ス ・ レ ジス タ の 値 を 変数 に スト ア す る 


XX Te 

この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビット が 変 
数 へ , 上 位 8 ビッ ト が 変数 の 次 の アド レス ヘス ト ア る れ ま す 
(044-12). 
Ө inx X, dex X 

inx 文 は 指定 し た イン デック ス ・ レ ジス タ の 値 を 十 1 L, 
дех 文 は ー 1 し ます 。 


«UID dx の 例 


var w, х, у, z [2]: と 宣言 され て いる も の と し て 
idx ix: 2x; 
ldx ix: =y[ 2 ]; 
を 実行 し た 場合 , イン デック ス ・ レ ジス タ に は 次 の よう に メモ リ の 内 容 が ロー ド さ れる 。 


w x y > 
I 1 l | 
х= ШЕЕ. БЕРІП | 
———— ep 


«ЕТЕР» son 


var a, b[ 3 ], с, d: と 宣言 され て いる も の と し て 
stxa:=ix; 
stx b[ 3 ] : = iy; 
を 実行 し た 場合 , 次 の よう に メモ リ に イン デック ス ・ レ ジス タ の 内 容 が スト ア さ れる 。 
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(14) コン パイ ルル 制御 文 

コン パイ ル 制 御 文 に は 、% tron, % troff, % break, 96 
include の 四 つ の 文 が あり ます 。 

% tron, % troff, % break は ゲロ グラ ム の デバ ッ グ の た 
め の 文 で . デ バッ グ ・ モ ー ド で コン パイ ル し だ た と きだ けり 有効 
に な り ま す 。 こ の うち , % tron, % troff は アゲ ログラム の ト 
レー ス に 関す る 文 で , % tron を 指定 する と プロ グラ ム の 実 
行状 態 が 追跡 びき る よう な オブジェ ト ・ コ ー ド を 生成 し , 96 
troff が 指定 され る まで 続き ます 。% tron に よっ て 生成 され 
る コー ド は , 実行 し た 行 番号 ある い は 関数 名 を 表示 する も の 
で , 行 番号 は 


[ 行 番号 ] 
関数 名 は 


{関数 名 } 


と 表示 し ます 。 
% break は プロ グラ ム を 一 時 的 に 中 断 す る 文 で , これ を 
実行 する t 


жж break in 行 番 号 


と ょ 表示 し て 実行 を 中 断 し ます 。 中 断 し た プロ グラ ム は 再開 る 
せる こと が で きま す 。 

96 include は 指定 され た ファ イル を ソー ス ・ プ ログ ラム の 
一 部 と し て 読み 込む た め の 文 で .。 ライ ブラ リ な ど を 読み 込む 
だ た め に 使い ます 。 


[4] X 

Stellar の 式 は すべ て 8 ビッ ト 長 で 演算 きれ ます 。 演算 は 
論理 , 関係 , 算術 の 三 つ に 分 類 き され ます 。 

(1) 演算 子 と 演算 

演算 子 は 25 個 あ り , それ ぞ れ 次 に 示す よう な 演算 を 行 な 
いま す 。 


論理 演算 子 
論理 演算 子 は ブール 演算 や ビッ ト 操 作 を 行ない ます 。 


… 論 理 和 
… 排 他 的 論理 和 
> 
… 論 理 否定 
論理 演算 は 各 ピ ッ ト ご と に 演算 が 行なわ れ ま す 。 
Өзи Т 


関係 演算 子 は 二 つ の 値 を 比較 する た め の も の で す 。 


… 等 し い 

… 等 し く て な い 

… 大 きい 

… 大 きい か 等 し い 
… 小 きい 

… 小 きい か 等 し い 


関係 演算 子 は 符号 な し の 2 進 整 数 で 比較 を 行ない , 結果 が 
真 の と き 255, 偽 の と き 0 の 値 が 得 ら れ ま す 。 
人 @ 算 術 演算 子 

算術 演算 子 に は 次 の も の が あり ます 。 


… 加 算 
…2 の 補 数 は と ら な い ( 何 も し な い ) 
… 2 の 補 数 を と る 


… 除 算 
… 剩 算 
… キ ャ リー フラ グ を 含め た 加算 
… キ ャ リー フラ グ を 合 め た 減算 
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算術 演算 は 符号 な し の 2 進 整数 で 行なわ れ ま す 。 
その 他 の 演算 子 
演算 子 と し て は その 他 に , シフ ト と 代入 が あり ます 。 


くく … 左 シフ ト (くく の 右辺 の 値 で 左辺 の 値 を 論理 左 
シフ ト す る ) 

>>… 右 シフ ト (>> の 右辺 の 値 で 左辺 の 値 を 論理 右 
シフ ト す る ) 

: =… 代 入 (: = の 右辺 の 値 を 左辺 へ 代入 する ) 


(2) 演算 の 優先 順位 
演算 は 次 の 優先 順位 に よっ て 行なわ れ ま す 。 


0 や [] の 中 の 式 , : = の 右辺 , 関数 
・ 単 項 の + 一 
. # 4 << >> 
— plus minus 
<> > >= < <= 


同 順位 の 演算 は 左 か ら 右 へ 行なわ れ ま す ( 図 4-13)。 こ の 
図 で 演算 は ひつ ⑤ の 順に 行なわ れ ま す 。 


CHP 演算 の 順位 


a:=l] +b:=c—d*2 
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(3) 3X 
カン マ (, ) で 区 切ら れ た カッ コ の 内 の 式 は 左 か ら 6 右 へ 計 
май, 最 右 の 式 の 値 が カン て 式 の 値 に な り ま す 。 


例 
x = (at=, Бі-5; atp) 


all, b に 5 を 代入 し , a+b#RRT2, a+b 
が カン マ で 式 の 結果 と な り x に 代入 る れる 。 つ まり , x に 
は 6 が 代入 きれ る 。 


(4) 条件 演算 関数 

条件 演算 関数 と は 式 の 中 に 書け る 正文 と いら う よ う な も の 
TT. 

カッ コ 内 に は 三 つ の 式 が 書か れ , セミ コロ ン (:) と カン 
т (，) に よっ て 区 切ら れ ま す 。 第 一 の 式 が 条件 を 表わす 式 
C, 計算 結果 が ゼロ 以外 ( 真 ) の と き 第 二 の 式 を 計算 し , Bj 
数 の 値 と し ます 。 第 一 の 式 の 計算 結果 が ぜ ゼロ (А) な ら 6 第 三 
の 式 を 計算 し 関数 値 と し ます 。 図 4-14 は これ を 流れ 図表 
わし た も の で す 。 
«ND 条件 演算 関数 


? ( 式 |: 式 2, 式 3 ) 


式 3 を 計算 し その 値 式 2 を 計算 し その 値 
を 関数 の 値 と する 。 を 関数 の 値 と する 
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例 
hex1 i=? (h:=h & $f) «10; h, h* 7). 
+” 0” 


変数 h の 下位 4 ビッ ト を 1 文字 の 16 進 数 に 変換 し , 
hex 1 へ 代入 する 。 


( 5 ) 組み 込み 関数 

Stellar で は つぎ の 13 個 の 組み 込み 関数 を 持っ て いま す 。 

inc (変数 名 ) …………… 変 数 の 内 容 を 十 1 し , 十 1 し た 
値 を 関数 の 値する 。 こ れ は 
(変数 名 : = 变数 名 十 1) と 同 
Ú, 

dec (変数 名 ) …………… 変 数 の 内 容 を ー 1 し , 一 1 し た 
値 を 関数 の 値 し する 。 こ れ は 
(変数 名 : = 变数 名 一 1) と 同 
is. 

тіс (55) —À—— M алауы 式 の 計算 結果 を 左 へ 1 ビッ ト 回 


転 き せる 。 


キャ リー | b7 bo 
umami 
* — IE ビッ ト 回転 。 
TTC QE) ^ eee tren 式 の 計算 結果 を 右 へ 1 ビッ ト 回 . 
転 きせ る 。 
мег 
БЕДЕЛІ ЛЕГЕН 
ОО Л > 


4-4 コン パイ ラ 


rl ( 式 ) ინე” 式 の 計算 結果 を 左 ヘ キャ リー フ 
ラグ も 含め て 1 ビッ ト 回 転 き せ 
る 。 


_--__-–- 
пешаша 
—— IL 


1 ビッ ト 回 転 


rr (IÑ) el 式 の 計算 結果 を 右 へ キャ リー フ 
ラグ も 含め て 1 ビッ ト 回 転 き せ 
5, 


1 ビッ ト 回 転 


sra GX) MR 式 の 計算 結果 を 右 へ 1 ビッ ト 算 
術 右 シフ ト す る 。 


b; bo キャ リー 


b7 は 不変 


| ピッ トシ フト 


8661 (58). нани 式 の 計算 結果 を 10 進 数 2 桁 
(BCD) に 補正 する 。 
Қасар 2 менын 現在 の キャ リー フラ グ (СҮ) 


の 値 を 求め る 。CY ニ 1 なら 
255, CY= 0 な ら 0 が 関数 値 。 

[as 式 計算 後 の キ ャ リー フラ グ の 値 
を 求め る 。CY ニ 1 な ら 255, 
СҮ = 0 # 6 0 が 関数 値 。 
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“წ“აია ო“ 式 計算 後 の ぜ ロ ・ フ ラグ の 値 を 
求め ゆる 。Z ク ニ 1 な ら 255, Z= 
0 な ら 6 0 が 関数 値 。 
Sign () emeret 現在 の サイン ・ フ ラグ (S) の 
値 を 求め る 。S= ニ 1 な ら 625 
5, S ニ 0 な 6 ら 60 が 関数 値 。 
sign (X) «MR 式 計算 後 の サ イン ・ フ ラグ の 値 
を 求め る 。S= ニ 1 な ら 6255, 
S = 0 # 6 0 が 関数 値 。 
parity (o) eesssastessasassas 現在 の PV フ ラグ の 値 を 求め 
る 。P/V ニ 1 な ら 5255。 
P/V=0 な ら 0 が 関数 値 。 
parity (A) で で の mo の の の 式 計算 後 の P プ ソフ ラグ の 値 を 
求め る 。 Р/У-1%6 255, 
P ZV = 0 # 6 0 が 関数 値 。 
overflow ( ) «7 parity ( ) と 同じ 。 
overflow (К) ათას parity (X) と 同じ 。 


(6) 関数 の 呼び 出し 

実 引数 に は 8 ビッ ト 長 と 16 ビッ ト 長 の 二 種 類 が あり , Ж 
引数 の 値 が 関数 に 渡る れ ま す 。 セ ミコ ロン (;) に より 前 が 
8 ビッ ト 長 の 実 引数 で , 0 ~32 個 の 式 が 書け ます 。 セ ミュ 
ロン より 後 が 16 ビッ ト 長 の 実 引数 で , イン デック ス ・ レ ジス 
タ 名 や 定数 式 を 書き ます 。 関 数 の 呼び 出し で 書か れる 実 引数 
は 次 の よう な 意味 を 持っ て いま す 。 


順序 は 変え られ な い 
ix また は 定数 式 , iy また は 定数 式 ) 


関数 名 XI, =2, …, Rn: 


実 引数 の 数 は 0 一 32 個 , 仮 引数 の 数 と 特に 合わ せ 
る 必要 は な い 。 引 数 の 数 が 合わ な い 場 合 関数 側 
で 次 の よう な 処理 を 行う 。 


イン デック ス ・ レ ジス タ іу の 値 や 
定数 式 の 値 を 関数 へ 送る 。 た だ 
L, 呼び 出さ れる 関数 の 頭 書 き で 
I6 ビ ピッ ト 長 の 値 を iy で 受け る よう 
イン デック ス ・ レジ スタ ix に つい て に 指定 され て いな いと 送ら れ な 
iy と 同様 。 (54 


22 
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つの づき 


⑧ 仮 引数 の 数 > 実 引 _ 


呼び 出し 側 func! (a,b 十 c,d 
何 が 入 い る か 


წმი. か いらない 


関数 側 func | (u, у, VI, х, y, 2) 


る ⑧ 仮 引数 の 数 く 実 引数 の 場合 
呼び 出し 側 func2 (a,b,c, а/е, f) 


関数 側 func 2 (x, y, z) 


無視 され る 


( 7 ) 関数 の 値 の 渡し か た 

関数 の 値 は return 文 の 一 つ 前 に 実行 し た 式 の 値 と な り ま 
す 。 

た と え ば 仮 引数 a,b,c の 合計 を 関数 の 値 と する 関数 は , 


add3 (a, b, c) 
( 
2+ხ+C; 


と な り ま す 。 次 の 例 は , ix が 示す n バ イト の メモ リ の 中 か 
ら X と 等 し いも の を 探し 出す 関数 で , 等 し いも の が あれ ば を 
の 位置 を , 等 し いも の が な い 場 合 は $FF を 関数 と 値 と し て 
戻し ます 。 
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ぢ づき 
fo i := テ 0 ton 一 1 4 


if memory | ix+ | = x 
then ( 
i; 


return ; 


[5] 変数 と 定数 

(1) 変数 

変数 と し て 扱う も の に は , 変数 宣言 部 で 宣言 し た 変数 名 , 
デー タ 宣言 部 で 宣言 し た デー タ 名 , そし て memory 配列 と 
port 配列 で す 。 デ ー タ 名 は : の 左辺 に 置い て 値 を 代入 す 
る こと は で きま せん 。 

変数 名 ) デー タ 名 の 後に は [ 式 ] を つけ て 相対 的 な 参照, 
代入 (代入 は 変数 名 の み ) が 行 な を ます 。 П 内 の 式 が 変数 
ある い は デー タ か ら の オフ セッ ト で 0-255 まで の 値 と な り 5 
ます 。 図 4-15 が 相対 的 に アク セス で きる 範囲 を 表わし た 図 
Уг 

«СІНЕ» 相対 的 に アク セス で きる 範囲 


254 255 


256 バ イト 
⑯ メ モリ 上 [ | の 部 分 が 相対 的 に アク セス で きる 範囲 。 


var a, b [2], c; d [3], e; 
( 
bpd [1]se$1d4d:3 


290 
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с [3] =a [5] 一 8: 


この 例 の 場合 , 変数 宣言 部 で は 変数 は メモ リ 上 に 次 の よう 
に 割り つけ られ ます 。 


a,c,e は それ ぞ れ 1 バイ ト , b は b[ 2 ] と 宣言 され て い 
る の で 2 バイ ト , d は d[ 3 ] と 宣言 きれ て いる の で 3 バイ ト 
取ら れ ま す 。 

この 例 を 実行 する と メモ リ 上 の 値 は 次 の よう に な り ま す 。 


а c d e 変数 名 の み で アク セス 


| で きる 位置 
s T ალა == 


1 1 1 1 1 4. 4 
a(0) а(1) а(2) a(3) а(4) [a(5)|a(6) a(7) --а(255) 


1 +. t 94 + 1 
d(0) b(1) b(2) b(3) b(4) b(5) b(6) …b〔255〕 
変数 名 の 後に 


% $ t 
c(0) c(1) c(2) c(4) --с(255)) 〔 式 ]〕 を 付け て アク 


1 1 セス で きる 位置 。 
b(0) FA s …d[255] 


e(0) …e〔255〕 
た と えば , e(0), b(3), C(4),ხ(6), 8(7) は いずれ も 変数 e を アク セス する 。 


memory 配列 は CPU の 全 メ モリ 空間 64 K バ イト に 対し 
て 自由 に 参照 , 代入 する た め の も の で , 二 つ の 形式 が あり ます 。 


memory [X 1, 3X2] 


式 1 の 値 を 上 位 バ イト と し , 式 2 の 値 を 下位 バイ ト に し て 
メモ リ の アド レス を 設定 し 参照 代入 を 行ない ます 。 
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memory [イン デック ス ・ レ ジス タ 名 , 定数 ] 


この 形式 は イン デック ス ・ レ ジス タ (ix, іу) を 使う も の 
で す 。 基 本 的 な 使用 法 は 上 記 の よう に , 初め に イン デック 
ス ・ レ ジス タ 名 (IX, іу) を 書き , 次 に 定数 を 書き ます 。 

イン デック ス ・ レ ジス タ 名 の 後に 正 符号 (+) また は 負 符 
号 (一 ) を つけ る と 参照 代入 を 行なっ た 後 , イン デック 
ス ・ レ ジス タ の 値 を 正 符号 (+) C+ 1, 負 符 号 (-) T- 
ILLES 

定数 は 符号 を つけ な いで 場合 で 0 –127 まで の 整数 , 符号 
を つけ た 場合 で —128~ +127 まで の 整数 と も なり ま す 。 定数 
の 値 が で ロ の 場合 , 


memory [イン デック ス ・ レ ジス タ 名 ] 


と 書い て も か まい ませ ん 。 こ の 定数 の こと を ディ スプ レイ ス 
メン ト と いい , この 定数 に より , イン デック ス ・ レ ジス タ が 
示す アド レス を 中 心 に 一 128 一 十 127 バイト が アク セス で き 
る よう に な り ま す ( 図 4-16)。 ま た だ , “memory" の 代わ り に 
@ と 書く こと が で きま す 。 

port 配列 は , 1 プ O ポ ー ト に 対し て 参照 , 代入 を 行なう 
6 Ot4, LL, ӘЖ Но (Пп); аз Яп る 
(п) "と いう オブ ジェ クト ・ コ ー ド に 展開 さき れる の で , bc 
レジ スタ を 使っ た 16 ビッ ト の ポー ト ・ ア ドレ ス 指 定 は で きま 
せん 。“port" の 代わ り に @@ と 書く こと も で きま す 。 


CHD ディ スプ レイ スメント と アク セス で きる 範囲 


ディ スプ レイ スメント  —128 


メモ リ 


ーー — 
低 アド レス 256 バ イト 高 ア ドレ ス 
⑯ メ モリ 上 | |] の 部 分 が アク セス で きる 範囲 


(2) 定数 
定数 と し て は 次 の よう な も の が あり ます 。 

Ф 10 進数 0 —65535 まで の 正 の 整数 。 

ӨІСЕК $ を 頭 に つけ た 0 —FFFF まで の 16 進数 。 

ec 1 文字 を 引用 符 () で 囲ん だ も の 。 

es 定数 定義 部 で 定義 し た と き , 値 に つけ だ 名 前 。 

@7F u ERB, デー タ 名 , ラベ ル 名 , 関数 名 の 頭 に ピ 
УЖЕ C) を つけ る と を その アド レス が 定数 と な 
り ま す 。 

OKTE コン パイ ラ が 自動 的 に 定義 する 大 域 的 な 定数 名 
の こと で す 。 表意 定数 に は 次 の 三 つ の も の が あり 
ます 。 
ラン タイ ム ・ ル ー チ ン の ワー ク ・ エ リア の 
先頭 アド レス 。 これ の 内 容 は 関数 の 実 引数 の 数 
の 数 。 


.var … 変 数 エリ ア の 先頭 アド レス 。 
_code … オ ブ ジ ェクト ・ プ ログ ラム の 先頭 アド レス 。 


⑱ ロ ケー ショ ン ・ カ ウン タ の 値 $ の あと が 16 進数 以外 の 文 
字 な ら , その $ は 次 の 生成 する オプ ジェ クト ・ コ 
ー ド の アド レス を 示し ます 。 
定数 は 基本 的 に は 16 ビッ ト の 値 を 取り ます 。 た だ し , X 
な ど で 使 う 場 合 , 定数 は 8 ビッ ト 長 の 値 (10 進 数 で 0 
ー255, 16 進数 で 0 —FF) で な けれ ば な り ま せん 。 
も し 9 ビッ ト 以 上 の 値 (10 進数 で 256 一 65535, 16 進数 で は 
100—FFFF) だ と エラ ー に な り ま す 。 その よう な 場合 , ж 
数 の 前 に hi また は low と 書け ば 上 位 ま た は 下位 の 8 ビッ ト 
だ け を 定数 と し する こと が で きま す 。 
た と えば , 変数 abc の アド レス が 16 進数 で A25C の と 
š, low. abc と する と この 値 は 16 進数 で 5C と な り , hi 
abc で は 16 進数 で A2 と な り ま す 。 
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4-4-2 Stellar エ ラー ハ ソ セー ジ 
ユン パイ ル 中 に 表示 され る エラ ー メ ッ セ ー ジ は , 次 の と お 
り で す 。 


1 . 行 番号 Missing variable name : 変数 名 
内 容 : 指定 され た 変数 名 が 見 つか ら な い 。 
動作 : アド レス が ゼロ の 全域 的 な 変数 と し て 処理 を 続け 
Ф, 
2. 行 番号 : Missimg constant name : 定数 名 
内 容 : 指定 され た 定数 名 が 見 つか ら な い 。 
動作 : 値 が で ロ の 全域 的 な 定数 名 と し て 処理 を 続け る 。 
3 . 行 番号 Bad option switch 
内 容 : オプ ショ ン ・ ス イッ チ の 指定 が 悪い 。 
動作 : アボ ー ト 
4 . 行 番号 Illegal function name : 名 前 
内 容 : 不法 な 関数 名 で 関数 を 宣言 し よう と し た 。 
動作 : 名 前 が 予約 語 や 定数 な ら ア ボー ト 。 二 重 宣言 な ら そ 
の 名 前 で シン ボル ・ テ ー ブ ル (記号 表 ) へ 再 登 録 し 
処理 を 続け る 。 
5. 行 番号 Iligal name : 名 前 
内 容 : 不法 な 名 前 で 定数 名 , 変数 名 を 宣言 し よう と し た 。 
動作 : 名 前 が 予約 語 や 定数 な ら ア ボー ト 。 二 重定 義 , 宣言 
な ら を その 名 前 で シン ボル ・ テ ー プ ブル へ 再 登録 し 処理 
を 続け る 。 
6 . 行 番号 : Ilingal label : ^v 
W : 不法 な 名 前 で ラベ ル を 定義 し よう と し た (二 重 定义 
な ど ) 。 
動作 : その 名 前 で シン ボル ・ テ ー ブ ル へ 登録 きれ る 。 
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7. 行 番号 Bad string data 
内 容 : 文字 列 定 数 の 指定 が な い (文字 列 の 右 の "が な いま 
ま 行 が 終わ っ て いる ) 。 
動作 : 文字 列 定数 の 右 に 二 重 引用 符 C) が ある も の と し 
て 処理 を 続け る 。 
8. 行 番号 Too many arguments 
内 容 : 実 引数 の 数 が 32 個 以 上 定義 きれ て いる 。 
動作 : 処理 を 続け る 。 
9 . 行 番号 : Шва] character : 文字 
内 容 : 字句 と し て 認め られ な い 文 字 が ある 。 
動作 : アボ ー ト 
10. ? : Undefined label : ラベ ル 
内 容 : 未定 義 な ラベ ル が ある 。 
動作 : 処理 を 続け る 。 
11. ? : Undefined function name : 関数 名 
内 容 : 未定 義 な 関数 名 が ある 。 
動作 : 処理 を 続け る 。 
12. 行 番号 : Піва! constant : 定数 
” displacement 
” over range 
内 容 : 不法 な 定数 が 指定 され た 。 定 数値 。 displacemet, 
over range の いずれ か が 表示 る れる 。 
動作 : 値 を ぜ ロ に し て 処理 を 続け る 。 
13. 行 番号 : Bad constant 
内 容 : 定数 の 指定 が 悪い 。 
動作 : アボ ー ト 
14. 行 番号 Bad address constant 
内 容 : ア ドレ ス の 指定 が 悪い し 。 ま た は 指定 が で き な い と こ 
ろ で アド レス 定数 を 指定 し た 。 
動作 : アボ ー ト 
15. 行 番号 Syntax error 
内 容 : 構文 が 正しく な い 。 その 他 の エラ ー。 
動作 : アボ ー ト 
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16. 行 番号 Bad index operation 
内 容 : イン デック ス 操 作文 が 正しく な い 。 
動作 : アボ ー ト 
17. 行 番号 Bad expression 
内 容 : 式 が 正しく な い 。 
動作 : アボ ー ト 
18. %Abort 
内 容 : アボ ー ト 
动作 : コン パイ ル を 異常 終了 る せる 。 
19. 行 番号 Bad include file name 
内 容 : % include で 指定 され た ファ イル 名 が 正しく ない 。 
動作 : アボ ー ト 
20. 行 番号 Мо include file 
内 容 : % include で 指定 され だ ファ イル が な い 。 
動作 : アボ ー ト 
21. %Include source is not on memory 
内 容 % include で 指定 さて れん だ ファ イル が メモ リ 上 に な 
x. 
動作 : アボ ー ト 
22. %Symbole table overflow 
内 容 : シン ボル ・ テ ー ブ ル が オー バー フロ ー し た 。 
動作 : コン パイ ル を 中 止 する 。 
23. % Object area full 
内 容 : オプ ジェ クト ・ プ ログ ラム を 出力 する 領域 が いっ ぱ 
い に な っ だ 。 
动作 : コン パイ ル を 中 止 する 。 
24. %Bad source file 
内 容 : 入力 し た ツー ス ・ プ ログ ラム が 正しく て ない 。 
動作 : コン パイ ル を 中 止 する 。 
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ーー 
4-4-3 コン バイ ラ の 使い 万 

図 4-17 は Stellar コン パイ ラ で の プロ グラ ム 上 開発 手順 を 
示し た も の で す 。Stellar の ソー ス ・ プ ログ ラム は エディ タ で 
作成 し ます 。Stellar ユン パイ ラ は ソー ス ・ ブ ログ ラム を 入力 
し て オプ ジェ クト ・ コ ー ド を GVRAM 上 に 出力 し ます 。 コ 
ン パ イラ は 直接 マシ ン 語 の オブ ジェ クト ・ コ ー ド を 出力 し ま 
す が , 特殊 な ユー ド を 含ん で いる た め , この まま で ば 実行 す 
る こと は で きま せん 。 そ を そこで, これ を 実行 可能 に する だ た だめ の 
プロ グラ ム が ロー ダー で GVRAM 上 の オブ ジェ クト ・ コ ユー 
ド を 変換 し て メイ ン ・ メ モリ に ロー ド し ます 。 ロ ー ド され だ 
オブジェ クト ・ プ ログ ラム は 実行 コマ ンド で 実行 で きま す 。 


<g 還 Stellar コ ン バ イ ラ で の プロ グラ ム 開 発 手順 


| プログラム を セー プ | 
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ここ で は ハノイ の 搭 (リス ト 4-1) の プロ グラ ム を 例 に と 
っ て 説明 し ます 。 


スト 4- | 


/ж tower of hanoi ж/ 


Prog hanoi(); 
13,on := l.off := 0; 


"tower of hanoi",cr,8, 
N Ж I,.49 =? "5,8; 


ірі(оп); 
putstr(;.msgl); 
‹ 
7 newline();putstr(;.msg2); 
)until (n:=getchr() )>= '1' & n <= 7497; 
n := n ーー '0°; 
newline(); 
move(n,'X','Y*','Z'); 
Ipt(off); 
) 


lPt(sw); 
var _lpt at ($1472); 
t 
_lpt := sw; 
) 


putstr(;ix); 
$ 
inline $dd,$e5, push ix 
$dl, POP de 
$cd,#$142f; call printp 
} 
newline(); 
‹ 


inline $cd,#$1446; crlprp 
) 


getchr(; 
( 


inline $3е, $01, a,l 
$cd,#$001b, inkey 
$cd,#$1420; accprp 

) 


putchr(c); 
( 


inline $3За,#.с, a,C.c) 
8с4,%%1420; ассргр 
) 


recursive move(n,x,y.z); 

data mvms: "move ",0, 
frms: " from ",0, 
toms: " to ",0; 


if n > 1 then < 
move(n-1,x,Z,y); 
putstr(;.mvms); putchr(n*'8'); 
putstr(;.frms); putchr(x); 
putstr(;.toms); putchr(y); 
newline(); 
move(n-1,Z,y,x); 
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e -- 


yelse ( 
putstr(;.mvms); putchr(n*'8'); 
putstr(;.frms); putchr(x); 
pPutstr(;.toms); putchr(y); 
newline(); 


[1] Stellar コン パイ ラ 

Stellar コン パイ ラ は コマ ンド ・ モ ー ド の と き に “COMP 
[/P] 回 "と 入力 し て 起動 し ます 。 | | で 囲ま れ て いる も 
の は 省略 びき ます が , “/P”" を 付け る と コン パイ ル 中 の メッ 
セー ジ を プリ ジジ タタ に グリ ジ ト し ます 。 #77, Е? (ファ シグ 
ショ ン キ ー の 2 番 ) を 押す ょ と “COMP 图 "上 AJ U: t 
同じ で す 。 

コン パイ ル 中 に エラ ー が ある と エラ ー メ ッ セ ー ジ , エラ ー 
行 , そし て 


«space? continue, E (dit) 


と 表示 し て 入力 待ち に な り ま す 。 ス ペー ス ・ キ ー を 押す と っ コ 
ン パ イル は 続行 し , E (また は e) を 押す と エディ タ に 入り 
エラ ー 科 所 の 付近 に カー ソル が 移動 する の で 再編 集 し て くだ 
きい 。 

Stellar コン パイ ラ は エラ ー が な けれ ば 次 の よう な メッ セ 
ー ジ を 表示 し て コン パイ ル し ます 。 


Stellar compiler Rev 1.08 
(.X1 Version ) 
CoPyright (c) 1984 H.Watanabe & H.Ohnuki / MIA 


Program name : プロ グラ ム 名 
Function name : 
Function name : 
Function name : 


Function name : getchr 
Function name : putchr 
Function name : move 
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Program 0324 (8000-8323) 生成 し た オブ ジェ クト ・ コ ー ド の サイ ズ と アド レス 


Data 0037 (0900-0936) 変数 , ワ ー ク ・ エ リア の サイ ズ と アド レス 
Stack bottom ( -F8FF) スタ ッ ク の アド レス 


жж End Of compile, No error(s) 
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[2] ロー ダー 

ロー ダー は コマ ンド ・ モ ー ド の と き に “LDOBJ [/ P] 0” 
と 入力 し て 起動 し ます 。“/P” を 付け る と ロー ド 中 の メッ セ 
ー ジ を プリ ンタ に プリ ント し ます 。 ま だ ただ, F 3 を 押す と 
“LDOBJ 較 " と 入力 し た 場合 と 同じ で す 。 

プロ グラ ム 中 で オプ ショ ン ・ ス イッ チ を 使っ て いる 場合 で 
ロー ド ・ ア ドレ ス が シス テム 領域 と 重なっ て いる と き は , 2 
の アド レス と “Load error" と 表示 し , ロー ド は 中 断 し ま 
す 。 ソ ー ス ・ プ ログ ラム と 重なっ て いる と き は 


| Destroy a File (Y/N) ? 


と 表示 し て ソー ス ・ プ ログ ラム を 破壊 する か どう か 聞い て き 
ます 。 こ こ で Y (まだ は y) を 押す と ソー ス ・ プ ログ ラム を 
破壊 し て オプ ジェ クト ・ コ ー ド を も ロード し ます 。N (また だ は 
n) を 押す と ロー ド を 中 断 し エラ ー を 表示 し ます 。 

ロー ド の 一 時 停止 は スペ ー ス ・ キ ー を 押し て くだ さい 。 一 
時 停止 の 解除 も スペ ー ス ・ キ ー で す 。 ま た , SHIFT+ 
BREAK キ ー か C を 押す と ロー ド は 中 断 し エラ ー を 表示 
し まず す 。 | 

ロー ダー は エラ ー が な けれ ば 次 の よう な メッ セー ジ を 表示 
し て オブ ジェ クト ・ コ ー ド を ロー ド し ます 。 


Load stellar compiler object 


Program 
Function 
Function 
Function 
Function 
Function 
Function 
Constant 
Constant 
Constant 
Constant 
Constant 
Constant 
Variable 
Data 
Data 


name : hanoi = B000 プロ グラ ム の 開始 アド レス 
name : lpt = 8198 

name : putstr = B1B5 

name : newline = BID6 : 
name : getchr = BIED | 関数 の 開始 アド レス 
name : putchr = B209 

name : move - B223 

name : work = D900 

name : var - D930 表意 定数 の 値 
name : code = B999 

name : 

name : | 全域 約 な 定数 名 の 人 
name : 


name : ) 全域 的 な 変数 の アド レス 

us | 全域 的 な デー タ 名 の アド レス 

name : е 

End address : 生成 し た オプ ジェ クト ・ コ ー ド の エン ド ・ ア ド レス 
Program size : 生成 し た オプ ジェ クト ・ コ ー ド の サイ ズ 
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[3] オプ ジェ クト ・ プ ログ ラム の 実行 

ロー ド る され だ た オブ ジェ クト ・ プ ログ ラム の 実行 は コマ ン 
ド ・ モ ー ド の と き に “RUN [ &Hnnnn] (J" (nnnn は 16 
進数 ) と 入力 する と 実行 で きま す 。 ま だ, F5 を 押す と 
“RUN J”, F 10 を 押す と “RUN 名 H" と 入力 し た 場合 と 
ІНІ UC T, "&Hnnnn" £ffU გ E nnn 番地 か ら 実行 で きま 
す 。 こ れ は ロー ド 中 に 表示 る れ た 関数 の デバ ッ ク な ど に 便利 


Ы : 
オブ ジェ クト ・ プ ログ ラム が デバ ッ グ ・ モ ー ド で % tron が 


指定 さて て いる と き , 実行 を 一 時 停止 する を と き は スペ ー ス ・ 
キー を 押し て くだ さい 。 一 時 停止 の 解除 は スペ ー ス ・ キ ー で 
す 。 ま た , 実行 を 中 断 す る に は SHIFT-BREAK キー か 「 
C を 押し て くだ きい 。 

実行 結果 は 次 の よう に な り ま す 。 


tower of hanoi 

N( 1...9 )= ? 4 
move from X to Z 
move 
move 
move 
move 
move 
move 


from X to Y 
from Z to Y 
from X to Z 
from Y to X 
from Y to Z 
from X to Z 
move from Z to Y 
from Z to X 
from Y to X 
from Z to Y 


move 
move 
move 
move 
move 
move 


from X to Z 
from X to Y 
from Z to Y 


1 
2 
1 
3 
1 
2 
1 
move 4 from X to Y 
1 
2 
1 
3 
1 
2 
1 


[4] オプ ジェ クト ・ プ ログ ラム の 続行 

96 break で 実行 を 中 断 し た プロ グラ ム の 再開 は コマ ンド ・ 
モー ド の と き に “CONT 較 " と 入力 する か まだ は F5 を 押し 
tT, 

[3] 4-18 は Stellar 動作 時 の メモ リ ・ マ ッ プ で す 。 
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«EID stelar 動作 時 の メモ リ ・ マ ッ プ 


(a) メ モリ ・ マ ッ プ (b)/0 マ ッ プ 


ユー ザー|/O ボ ポート 


シス テム I/O ポ ー ト 


Stellar 
エディ タ 
コン パイ ラ 
ロー ダー 


デキ スト エリ ア 


Фр: 8000 
ラン タイ ム ・ ル ー チ ン 
オプ ジェ クト ・ コ ー ド 
注 1?%D: 0900 
変数 , ワー ク ・ エ リア 
スタ ッ ク ・ エ リア 


ロー カル ・ ス タッ ク 


ワー ク * エ リア 
スタ ッ ク (コン バイ ジラ 用 ) 


シス テム で 使用 


注 1) オプ ショ ン ・ ス イッ チ に より 変更 可 。 
注 2) テキ スト ・ エ リア は 6800H て D8FFH。 


154 


4-4 コン パイ ラ 


A-4-4 VI BEOTI -IITA 

Stellar は 入出 力 の 文 を 持っ て いな い の で , inline X # ff 
っ て これ を マシ ン 語 で 記述 する 必要 が あり ます 。 inline 文 を 
抜け る と き は スタ ッ ク ・ ポ イン タ を 入る と き の 値 に 戻る な け 
れ ば な り ま せん 。 

[ 1 ] マシ ン 語 と の イン ター フェ イス 

リス ト 4-2 は 文字 列 の アド レス を de レジ スタ に セッ ト し 
て $000b を コー ル し , 画面 に "X 1" と いう 文字 列 を 表示 する 
プロ グラ ム で す 。 

リス ト 4-3 А, 'B' と いう 文字 を 表示 し , リス ト 4-4 は 
キー ボー ド か ら 1 文 字 入力 し て 表示 する プロ グラ ム で す 。 
Stellar で は 式 や 関数 の 値 を 8 レジ スタ に セッ ト す る の で リ 
スト 4-3, 4-4 の よう な 使い 方 が び どき ます 。 リ スト 4-4 の 関 
数 input の 関数 値 は $001b を コール し た と き に セッ ト さ れる 
a レジ スタ の 値 で す 。 

リス ト 4-5 は 8 ビッ ト ・ デ ー タ を 関数 に 渡す プロ グラ ム で 
*B'" と いう 文字 を 表示 し ます 。 変数 ch に セッ ト る れ て いる 
の は $41 で す が , 関数 printf に 渡る れる と き は 評価 

(ch: 三 ch 十 1) され た 値 $ 42 が 渡さ る れ て 仮 引数 char に セ 
ッ ト さ る され ま す 。 

16 ビッ ト ・ デ ー タ の 受け 渡し に は リス ト 4-6 に 示す よう に 
イン デック ス ・ レ ジス タ ix, іу を 使い ます 。 関数 add は 
ix: =ix+iy と いう 計算 を する の で , 関数 の 頭 書 きび で はず を 
つけ て いま す 。 


Prog Print(); 
data string:"X1".0; 
1 


inline $11,8.string, /* ld de..string 
$cd ,#$000b; /* call print 
} 
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prog putc(); 
( 


$41; 
inline $cd,#$0013; /* call риїс 


$42; 
inline $cd.#$0013; /* call Putc 


prog test); 
{ 


input(); 


inline $са, #$0013; /* call prt 
) 


input ОО; 
{ 


inline $3e.$81, жі ам 
$са,#$8@1Ь; /* call inkey 


prog test; 

var ch; 

( 
Ch: =$41; 
printf(ch:sch*1); 


) 
Printf(char); 
( 


inline $3а,#.сһаг, /* ld а, (.сһаг) w/ 
$cd, #$0013; /* call putc [74 


Prog test(); 
{ 


set ix := $1234; 
add(;ix,$1111); 
Printx(;ix); 

) 


მძძ(:#1X,#IV); 
# 


қ inline $dd,$e5, push ix 
$el, POP hl 
$fd, $е5, push іу 

рор de 

ада hl,de 

push hl 
$dd,$el; POP ix 
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Printx(iix): 
{ 


inline $dd,$e5, /* push ix 
el, /* poP hl 
8с4,%%1202; /* call hlhxpr ж/ 


[2] 1 ププ 0 ポー ト へ の アク セス 

Stellar で は X 1 の 16 ビ ッ ト の 1/O 空 間 を アク セス で き 
な い の で , リス ト 4-7 に 示す よう な 関数 outport, inport を 
使い ます 。 


Prog inout(); 

t 
outport($42;$3000); 
inport(;$3000); 


inline $cd,#$0013; call putc 
» 


outport(v;#ix); 
{ 
inline $dd,$e5, push ix 
$cl, 
$3a,#.v, 
$ed, $79; out (c),a 
} 


inport(;#ix); 
( 


inline $dd,$e5, push ix 
cl, POP bc 
$ed, $78; іп а, (с) 


[3] ] ラン タイ ム ・ ル ー チ ン 

ラン タイ ム ・ ル ー チ ン に は 13 個 の エン トリ ・ ポ イン ト が あ 
り ま す 。 各 エン トリ の 処理 は 次 の よう に な っ て いま す 。 

ここ で _code は 表意 定数 の 1 つ で オブ ジェ クト ・ コ ー ド の 先 
頭 ア ドレ ス を 示し て いま す 。 
_-code 十 0 : 生成 し た オプ ジェ クト ・ プ ログ ラム を 実行 する 。 
_code 十 3 : オ ブ プ ジ ェクト ・ プ ログ ラム の 実行 を 終わ ら せ る 。 
_code 十 6 : 1 バイ ト の 乗算 , aa ж (Ы), de, hl は 破壊 

され る 。 
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_code+ 9 : 1 バイ ト の 乗算 , aa жа, de, hl は 破壊 る 
れる 。 

_сойе+12: 1 バイ ト の 除算 , aa / (Ы), de, hl は 破壊 
され る 。 

-code 十 15 : 1 バイ ト の 除算 ,」a-a/d。d, hl は 破壊 る 
れる 。 

_code 十 18 : 1 バイ ト の 剰余 , a < a % (Ы), de, hl は 破壊 
され る 。 

_code 十 21: 1 バイト の 剰余 , aa%d。d, hl は 破壊 き 
れる 。 

_code 十 24 : 左 シ フト 。a で a< く < (hl), de は 破壊 され る 。 

_code 十 27 : 左 シ フト 。a で a <<d, de は 破壊 され る 。 

-сойе-30: 右 シ フト 。aa> ッ > (М), de は 破壊 され る 。 

-code--33: 右 シ フト 。aーa>>d。de は 破壊 され る 。 

-code 十 36 : 関数 へ の 実 引数 を 仮 引 数 へ 転送 する 。 また だ , 再帰 
的 な 関数 の 場合 は 局所 的 な 変数 の セー ブ も 行 な 
5, bc, de, hl, a は 破壊 され る 。 

まだ , ラン タイ ム ・ ル ー チ ン は ワー ク ・ エ リア と し て 48 バ 

イト の КАМ 領域 を 使用 し て いま す 。 そ の うち , 次 の 2 つ 

の 領域 は Stellar の ゲ プログ ラム で 参照 可能 な 領域 で す 。 こ こ 

で work は 表意 定数 の 1 つ で ワー ク ・ エ リア の 先頭 の アド レ 

ス を 示し て いま す 。 

_work + 0 ・ 実 引数 の 数 。 

_work + 1 一 32 : 実 引数 の 値 (第 1 引数 一 第 32 引数 まで )。 

リス ト 4-8 の print と いう 関数 は , 与え られ な た 引数 の 個数 分 

だ け 表 示す る も の で す 。 


Prog test(); 
{ 


Print('a','b','c','d'); 
) 
Print(; 
var c[331,z at( work); 
( 
set ix:=.c; 
set iy:=.Z; 
loop #,2+1 { 
@[ix+]:=@[iy+]; 


set ix:=. 


inline $cd,#$0013; /ж call putc ж/ 


4-4-5 ライ ブラ リ の 使い 万 
ライ ブラ リ に は , 基本 ライ ブラ リ , スク リー ン 制 御 ラ イブ 
ラリ , コン ツー ル 入 出力 ライ ブラ リ , 算術 ライ オブ ラリ が あり 
ます 。 
[1] 基本 ライ ブラ リ 
基本 ライ プラ リ は サブ ルー チン を コー ル す る も の で す 。 レ 
ジス タ の 設定 , 参照 は 代入 文 で で どき ます (リス ト 4-9)。 
WORKBUF は コン ツール 入出 力 ラ イプ ラリ の 文字 列 の 入力 
で 使わ れる だ け な の で 自由 に 使用 し て くだ きい 。 
(I) call (: アド レス ) 
アド レス で 指定 され た 番地 を コー ル し ます 。 代入 文 で 
レジ スタ の 値 を セッ ト し て くだ さい 。 


A De De H P DE DE DE DE DE DE PE HE DE DE DE HE JE E PE HE PE HE PE HE PE PE PE E JE E JE PE JE IE PE JE HE JE JE ME JE JE JE ME FE JE EFE 
*1 X1 Basic Library ж 
ж Беу 1.0 15% Nobember 1984 ж 
に ユ ユ ユ スエ エエ ユエ マユ スス ュ ス スナ ユエ ユメ ユメ ユエ ユ エメ ュ スス ユメ エエ ュ ミエ イメ ユエ ユマ ナメ エメ エナ エエ イア 4 


var _af[2],_bc[2],_de[2],_hl[2]._ix[2],_iy[2]， 
_a at(._af+1),_b at(. bc*1), 
.d at(. de*1), h ati. Һ1%1); 
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リス ト 4-9 uL. 
WORKBUF [2561 ; 


/ж ХІ IOCS call x/ 


са11(;іх); 
( 


inline 621,%.г%, 
$e5, 


$ed ,$4b ,#. bc, 
$ed,$5b,#._de, 
$2a,#._hl, 
$dd,$2a,#._ix, 
$fd, $2а,#. iy, 
$с9; 
rtt 

inline $íd,$22,9.-:iy, 
844,822.%. ix, 
$22,948. hl, 
$ed, $53,#. de, 


[2] ] スク リー ン 制 御 ラ イブ ラリ 
スク リー ン 制 御 ラ イプ ラリ の 関数 の 機能 は HuBASIC と 

ほ ば 同じ で す (リス ト 4-10), 

(I) width (< カラ ム 数 >) 

(II) console (ys, yl, xs, xl) 
パラ メー タ を すべ て 省略 する と, 最大 文字 数 表示 を す 
る 画面 に 戻り ます 。 

(Ш) sereen (< 出力 ペー ジ >, く 入 力 ペ ー ジ >, gmode) 
gmode が 1 の と き グ ラフ ィ ッ ク を 表示 し , 0 の と き 
は 表示 し ませ ん (1 行 あ た り の カラ ム 数 が 40 の と き 


の み 有 効 )。 
(IV) color ( く カ ラー コー ド >) 
文字 の 色 を 指定 する 命令 で す 。 


(У) backcolor ( く カ ラー コー ド >) 
背景 の 色 を 指定 する 命令 で す 。 
(VI) cls (n) 
n の 値 は 次 の と お なり で す 。 
0 グラ フイ タク 1,、 グ ラジ ォ ッ グ 2。 グ ララ フォ ィ ッ ク グ 
16O 


” 


1 


NI 
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3 を 同時 に クリ ア し ます 。 
1 … グ ラフ ィ ッ ク 1 を クリ ア し ます 。 
2 … グ ラフ ィ ッ ク 2 を クリ ア し ます 。 
3… グ ラフ ィ ッ ク 3 を クリ ア し ます 。 
4… グ ラフ ィ ッ ク 1, グラ フィ ッ ク 2, グラ フィ ッ ク 
3 と テキ スト 画面 を 同時 に クリ ア し ます 。 
5 … テ キス ト 画 面 を クリ ア し ます 。 
(VID locate (x, Y) 
CELOD 


/XMXM%M%M+X%+XM DEDE DE MM X DE DE DE MX DE DE DEDE PE 3 DE DE DE DE 3 DE DE DE DE DE DE DE DE ME DEDE PE 36-3 JEJEJEJE 
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width(wsize) 
console(ys,yl,xs,x1) 
screen(outpage,inpage,gmode) 
color(color_code) 
back_color(color_code) 

・6 cls(n) 

・7 locate(x,y) 


来 来 来 来 来 来 来 来 来 来 来 束 


JE ME DE JE IE IE PE DE IE DE HE DE DE PE ME JE JE JE IE E DE JE IE ME PE PE DE JE ME JE JE PE PE PE PE DE PE PE PEJE IE JE JEFE JEJEJE FE 


LINLIM at($6) WIDTH9 at($7). 
CURX · at($E) CURY at($F). 
CURYST at($16) CURYED at($17), 
CURXST at($1E) CURXED at($1F) 
COLORF at($26) CLSCHR at($27 ): 


width(wsize): 
‹ 
_а := wsize; 
call(;$988); 
) 


console(ys,yl,xs,x1); 

4 
if ( уз = 0 & yl = 9 & xs = 0 & 
« 

VI := 25; 

xl := WIDTH6; 

goto OK; 


) 


if (ys ys > 24) then goto ERROR; 

if (yl yl > 25-ys) then goto ERROR; 

if (xs xs > WIDTH8-1) then goto ERROR; 
if (xl хі > WIDTH9-xs) then goto ERROR; 


CURYST :* ys; CURYST := ys + yl; 
CURXST := xs; CURXED := xs + xl; 


return; /* normal return ж/ 


return; /* error return ※/ 


161 


っ っ 


Screen(outpage,inpage,gmode); 
+ 
_a := outpage; 
call(;$9c0); 
-а := inpage; 
Call(;$9f5); 
if gmode then call(;$a5a); 


else inline 

§01 ,#§1000, /* ld bc,1880h ж/ 

$af , /* xor a */ 

$еа, $79, / out (с) ,а blue */ 

$04, /* inc b */ 

$ed.$79, /* out (c),a red */ 

$04, /* inc b */ 

$ed,$79, /* out (c),a green  */ 

$04, /* inc b ж/ 

$ed,$79; /* out (c),a Priority ж/ 


) 
color(color code); 
4 


color_code := color_code % 8; 
COLORF := (COLORF & $f0) ! color code; 
} 


back color(color code); 
« 


if color_code > 7 then color_code := color_code % 8; 


inline 
$3a,#.color_code, /* ld а.(.соіог code) ж/ 
$21,$16,0, / ld hl ,RPRIOF ж/ 
806,3, /* ld b.3 ж/ 
$cb.$1e, /* loop rr (hl) ж/ 
50, /ж rrca ж/ 
$cb, $16, /* rl (hl) */ 
$23, /* inc hl ж/ 
810,648, /ж djnz loop ж/ 
$cd, $5a, $8a; /* call біргіп ж/ 
) 
cls(n); 
/ж n..8 Graphic Clear 
1 Vram(4000H-7FFFH) Clear 
z Vram(8999H-BFFFH) Clear 
3 Vram(C999H-FFFFH) Clear 
4 Text Clear Graphic(4000H-FFFFH) 
5 text Clear 
*/ 


if ( n = 8) then call(;$a8f); /* Graphic Clear 关 / 


elseif (n = 1) then fillvram(0:$4000,$4000); 
elseif (п = 2) then fillvram(0:$8000,$4000); 
elseif (n = 3) then fillvram(0;$c000,$4000); 
elseif (n = 4) then 
« 
call(;$6e4); /* text clear & cursor home ж/ 
call(;$a8f); /* Graphic clear 关 / 
) 
elseif (п = 5 ) then са11(;$6е4); /x text clear ж/ 
else (8; returni} /* error ж/ 
1; /* normal return ж/ 


) 


locate(x,y); 


OU 
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if (y < CURYST ! y > CURYED ) then goto ERROR; 
if (x >= CURXST & x < CURXED ) then 
t 


CURX := xi 
CURY := y; 


1; 
return; 


8; return; 
) 


fillvram(c;ix,iy); 
/* c fill chracter 
ix fill start address 
iy fill length 
*/ 
‹ 
inline 
$dd ,$e5 


nz,loop ж/ 


ІЗІ コン ソー ル 入 出力 ライ ブラ リ 
コン ソー ル (CRT, キー ボー ド ) と の 入出 力 や プリ ンタ 
へ の 出力 の た め の 関 数 で す (リス ト 4-11)。 
(I) print str (с; く 文 字 列 の 開始 アド レス >) 
NUL コー ド (0) で 終わ る 文字 列 を 出力 し ます 。 文 
字 列 を 出力 し た 後 , C が 1 の と き は 改行 し 。 0 の と き 
は 何 $ も し ませ ん 。 
(II) print num (<#>) 
符号 な し の 1 バイ ト の 数 を 10 進数 で 出力 し ます 。 
(Ш) print hex («X») 
数 を 16 進数 で 出力 し ます 。 
(IV) print_chr (< 数 >) 
数 を を その まま 文字 と し て 出力 し ます 。 
(V) print spc (< 回 数 >) 
回 数 分 だ どけ スペ ー ス を 出力 し ます 。 回 数 を 省略 し た と 
き (つま り 0 の と き ) は 1 回 だ け 出 力 し ます 。 
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(VD 


(VID 


(VIII) 


(IX 


— 


(X 


МА 


(XD 


cr( く 回 数 >) 

回 数 分 どけ 改行 し ます 。 回 数 を 省略 し た と き は 1 回 改 

ILE. 

input. str (m, b, 5 : く < 文字 列 格納 アド レ 

A», < メッ セー ジ 先 頭 ア ドレ スッ >) 

文字 列 を 入力 する と き に 使い ます 。m は 入力 する 文字 

列 の 最大 長 で す 。b が 0 の と き は 1 行 全体 を 入力 し , 

0 以外 の と き は メッ セー ジ を スキ ッ プ し て 文字 列 を 入 

2037, Ss が 1 の と き は メッ セー ジ を 画面 に 出力 し 

iT. S を 省略 し た 場合 は 出力 し ませ ん 。 こ の 関数 値 

は 入力 し た 文字 列 の 長き る です (文字 列 の 長き る が m よ り 5 

大 きい と き は 一 1 を 返し ます )。 こ の 関数 の 実行 を 終 

了 す る に は 次 の 4 通り の 方 法 が あり ます 。 

QJX—,  M に よる 正常 入力 。 

@ J に よる 現在 の カー ツル より も 前 の 文字 列 の 正常 
入力 。 

Ө SHIFT+BREAK キー,  C に よる 入力 キャ ン セ ル 。 

@ D に よる 入力 キャ ン セ ル 。 

入力 キャ ン も セル の 場合 , 実行 は 中 断 し ます 。 

input. num (S ; 文字 列 格納 アド レス >) 

キー ボー ド か ら 入 力 し た 数 値 が 関数 値 し な り ま す 。 入 

力 で き る 数 値 は 10 進数 で 0 —255 C3, Ss が 1 の と 

き は メッ セー ジ を 画面 に 出力 し ます 。 5 を 省略 し た 場 

合 は 出力 し ませ ん 。 

input chr ( ) 

キー ボー ド か ら 入 力 し た 1 文字 が 関数 値 と な り ま す 。 

іпкеу (1) と 同じ で す 。 

inkey (n) 

BASIC の inkey $ と 同じ で す 。 

lpt_sw (sw ; #, #) 

文字 列 の 出力 を sw が 0 の と き に コン ソ ツール, 1 の と 

き に プリ ンタ に 切り 替え ます (“print" で 始ま る 関数 

名 の み 有 効 )。 初 期 設 定 で は 文字 列 の 出力 は コン ソー 


ル と な っ て いま す 。 
(ХП) stov ( :# く 文字 列 の アド レス ッ >) 
数 字 の 文字 列 を 数 値 (0 ~255) に 変換 し ます 。 
(ХШ) vtos (文字 列 の 最大 長 >, < 数 値 > : < 文字 列 を 
格納 する アド レス >) 
数 値 を 10 進数 の 文字 列 に 変換 し ます 。 
(XIV) abort (s ; こ ア ドレ ス >) 
この 関数 を 実行 する と プロ グラ ム は 停止 し ます 。 S が 
1 の と き に < アド レス > か ら の メッ セー ジジ と 
“Abort. . . "と 表示 し ます 。 S を 省略 する と メッ セ 
ー ジ は 表示 され ませ ん 。 


A DH D D D DE DE DE DE DEDE DE DE DE DE DEDE DE PE DEDE DE DE DE DE DE DEPE PE DEDE DE DE PEDE DE HE DERE DEDE ЭЕ ЭЕ э ЭЕ ЭЕ ЗЕ ЗЕ 
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Print_str(c;ix) 
Print_num(v) 
print_hex(c) 


X X X X * X *x 


* 

* 

* 

* 

* 

* 

* 

Print chr(c) * 
input str(m,b;ix) * 
input. num( ) * 
* 

* 

* 

* 

* 

* 

* 

* 

/ 


input, chr() 
inkey(n) 
Print spcí(n) 
9 cr(n) 
1 Ipt_sw(Sw;#,#) 
2 stov(;#ix) 
3 vtos(length,value:ix) 


の の の の の の の の の の の の の 
— е — — O Оо N O ль QO N е 


X X X X X X 本 X * * x* 


DE DE DE DE DE PE DE DE DE DE DE DE PE DE DE DE IE DE DE DE DE DE DE PE PE DE DEDE DE DE PE DE E PE PE PE E DE DE PEDE PE ME DEJE MEE 


var FILEOUT at($1472); /* FILEOUT mode ж/ 
data -Ірб:0; /ж init CRT display x/ 


Print str(c;ix); 
( 


FILEOUT := Ірі; 
inline $4, $е5, /* push ix ж/ 
6841. /ж рор 4е ж/ 
$cd,#$142f; /* call lprint ж/ 
1f (c=1) then сг); 
FILEOUT := 88; 
) 


Print num(v); 

var bf[5]; 

4 
set ix:=.bf; 
vtos(5,v;ix); 
while @Г[1х]=' ' ( 

inx ix; 

} 
print_str(;ix); 


^ 
NII 


print_hex(c); 
4 


FILEOUT := ірі; 
こき უთ CC 
са11(:81207); 
FILEOUT := 00; 

) 


print_chr(c); 

( 
FILEOUT := ірі; 
.a := с; 
call(:$1420); 


FILEOUT := 88; 


) 
input str(m,b,s;ix.iy); 
var i; 
4 
if (s = 1) then( 
inline 
$ға, $е5, /* push iy */ 
$dl, /ж pop de ж/ 
$cd,#$000b; /* call print ж/ 
y j 
.de := low.WORKBUF; 
а := hi.WORKBUF; 


if b = Ø then call(:$03); else call(;$15a); 
/* cancel ж/ 


if carry() then stop; 


for 1:=1 to m ( 
if (@[ix+]:=@[iy+])=0 then í 
1-1: return; 
» 
) 
@[ix1:=0; 
m; 


input_num(s;ix); 
( 
if (s = 1) then( 


inline 

$dd, $е5, /* push 
$а1, /% рор 
$cd, #$000Ь; /* call 


) 
-de := low.WORKBUF; 
-d := hi.WORKBUF: 
са11(;815а); /* line 
if carry() then stop: 
ldx іх:- de; 
Stov(;ix); 
) 


input. chr); 
€ 

inkey(1); 
) 


inkey(n); 
( 
a := n; 


cal1(:$1b): 
а; 


іх 
ае 
print 


input ж/ 


*/ 
*/ 
*/ 


/* line input x/ 


958 


eum --: 


print_spc(n); 
var z at(_work); 
4 
if 2-0 then п:=1; 


if n then loop Жап í 
print ehre” “93 
) 
) 


cr(n); 
var z at(_work); 
{ 


if 2-0 then п:=1; 
if п then loop #,п ( 
print_chr(13); 


) 
) 


1pt_sw(Sw;#,#); 
var LPTFLG at(._lpt); 
$ 
LPTFLG := ?(sw;1,0); 
) 


Sstov(;#ix); 
var c,v; 
( 
while @[ix]=' 
іпх іх; 
) 
у:=@; 
while (C:=0CIX1)2= '0' & c <= '9' { 
у:=с-'@'+у#1@; 
inx ix; 


) 


vtos(length,value;ix); 
‹ 
loop #,dec(length) í 
@гіх+]:=' '; 
) 
ӨГіх-1:-0; 
( 
GLix-1:-valueX10*'0'; 
value:-value/10; 
) until values8 i dec(lensth)-0; 
) 


abort(s;ix): 
data mes:" Abort...",8; 
‹ 
print_chr(7); 
if (s = 1) then print_str(0;ix); 
print_str(1;.mes); 
stop; 


[4] 算術 ライ ブラ リ 

算術 ライ プラ リ は ワー ド 長 の 加減 乗除 算 の 関数 と 2 次 元 の 
配列 を サポ ー ト し て いま す (リス ト 4-12), 

(I) айм (al ah bl bh: く ベア ドレ ス >) 
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ワー ド 長 の 加算 。 
(ID sub w (all, аһ bl b hi <7 Fe >) 
ワー ド 長 の 減算 。 
(HI mul (a, b) 
バイ ト 長 の 乗算 。 結 果 は a*b の 下位 バイ ト 。 
(IV) mulov ( ) 
mul 関数 の 乗算 結果 の 上 位 バ イト の 取り 出し 。 
(V) ти у (al ah bl b_h: < く アド レス >) 
ワー ド 長 の 乗算 。 
(VD mulov w(; く ア ドレ ス >) 
mul_w 関数 の 乗算 結果 の 上 位 バ イト の 取り 出し 。 
(VI) div (a, b) 
バイ ト 長 の 除算 。 結 果 は ab の 値 。 
(ҮШ) mod (a, b) 
div 関数 の 除算 の 余り を 取り 出す 。 
(ІХ) div_w (al, ah, bl, bh; く < アド レス >) 
ワー ド 長 の 除算 。 
(X) mod_w(: く ア ドレ スッ >) 
div_w 関数 の 除算 の 余り を 取り 出す 。 
(XI) array (x, y; «7 Fv A») 
2 次 元 配列 の 配列 要素 の アド レス を 求め る 。 
array (х, y, 2; «7 F vA») 
3 次 元 配 列 の 配列 要素 の アド レス を 求め る 。 
(XII) load array (x, y; «7 Fv A») 
2 次 元 配列 の 配列 要素 の 参照 。 
load array (x, y, 2; «7 Fv A») 
3 次 元 配 列 の 配列 要素 の 参照 。 
(ХШ) store array (а, x, y, : «Y V vA») 
2 次 元 配 列 の 配列 要素 へ a の 値 を 代入 。 
store аттау (а, x, y, 2; く ア ドレ スン ツ ) 
3 次 元 配列 の 配列 要素 へ a の 値 を 代入 。 
この うち add_w, sub w, mul w, div w は パラ メー タ 
の 渡し か た が 同じ で す 。 つ まり al と ah, bl と bh を を 


れ ぞ れ 一 つの 2 バイ ト の 数 (1 が 下位 , h が 上 位 ) と 見 な し , 
符号 な し 2 進 整数 と し て 計算 し て 結果 の 下位 バイ ト を < アド 
レス > へ , 上 位 バ イト を く ア ドレ スッ > 十 1 へ 代入 し ます 。 こ 
の と き , add_w, sub_w は 計算 結果 に 桁 上 が りや 桁 下 が り 
(ボロ ー) が 発生 し て いれ ば キャ リー フラ グ を 立て ます 。 

mul w の 計算 結果 は 一 般 的 に 4 バイ ト 長 に な り ま す が , 
この 関数 で は 下位 2 バイト だ け を 結果 と し て 返し ます 。 残 る 
上 位 2 バイ ト は mulov_w を 呼べ ば 求め られ ます 。 求 め た 値 
の 下位 バイ ト は く ア ドレ ス > へ , 上 位 バ イト は < く ア ドレ 
ス > 二 1 へ 代入 し ます 。div_w で 発生 し た 余り を mod_w で 
求め ある こと が で きま す 。 求め た 余り の 下位 バイ ト は く < アド レ 
ス > へ 。 上 位 バ イト は く ア ドレ ス > 十 1 へ 代入 し ます 。 

mul, div は 1 バイト 長 の 計算 (符号 な し 2 進 定数 ) で パ 
ラメ ー タ の 渡し か だ は 同じ で す 。 計 算 結 果 は 関数 の 値 と し て 
返さ れ ま す 。mulov は mul の 計算 結果 の 上 位 バ イト を 求め 
る も の で , これ も 結果 は 関数 の 値 と し て 返さ れ ま す 。 

mod は div の 除算 で 発生 し た 余り を 求め る も の で , 結果 
は 関数 の 値 と し て 返さ れ ま す 。 

array, load array, store array は , Stellar で サポ ー ト 
し て いな い 2 次元 , 3 次 元 の 配列 を 扱う た め の 関 数 で す 。 2 
OC, 3 次 元 の 配列 は 次 の よう に 宣言 し な けれ ば な り ま せ 
ん 。 
( 2 次 元 配列 の 官 言 


data < 配列 名 > : < ワー ク の 先頭 アド レス >, 
<x の 長き >, <y の 長き >, 1; 

@ 3 次 元 配 列 の 宣言 
data < 配列 名 > : < ワー ク の 先頭 アド レス >, 
(x の 長き >, <y の 長き >,。 く z の 長き る > ; 


ここ で く ワ ー ク > と は , 配列 要素 を 記憶 する ため の 領域 
C, 大 きる は (XOKI) ж (YORI) ж (ZOR8) 以 
上 で な けれ ば な り ま せん 。 
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array は x, Y b alix, Y, Z で 示さ る れ た 配列 要素 
(< 配列 名 > IX, у] や < 配列 名 > [x, y, 21) 07 
ドレ ス を 求め る 関数 で , 結果 の アド レス は イン デック ス ・ レ 
ジス タ ix に 設定 され て いま す 。 

load array は 配列 要素 (同上 ) を 参照 する 関数 で , 参照 し 
た 値 を 関数 値 と し て 返し ます 。 

store_array は 配列 要素 (同上 ) へ a の 値 を 代入 する 関数 
CV 


ЭКЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ DE ЭЕ PEPE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ 
4 arithmetic 


ж 
ж 
1 add w(a 1. ж 
2 sub_w(a_1, ж 
3 mul(a,b;#, * 
4 mulov(C;st, 4) * 
5 mul w(a l,a h,b l,b hiix,t) ж 
.6 mulov_w(;ix,#) ж 
7 div(a 1 8 h,b l,b hiix,t) ж 
8 mod(;#,#) ж 
.9 div w(a l,a Һ.Ь.1,Ь һ; іх, #) * 
.18 mod w(;ix,st) ж 
・11 аггау(х,у,2;#іх,#) ж 
.12 1oad аггау(х.у,2:іх,%) * 
.13 ѕіоге_аггау(а,х,у,2; іх, #) ж 

* 

/ 


b b b o Pp p b 2 p > 


/ 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 


に は ささ ささ ささ すす よさ すす と すす すす すす すさ すす さす すす すす すす すす すす すす すす すす て て 
მძძ «(მ 1,8 ხ,ხ 1,ხ ხ:1X,%); 
‹ 


inline 

$2а,#.а_1, /* 

$ed, $5Ь,#.Ь 1, /» 

$19, /ж 

$аа, $75, $00, /ж 

$аа, $74, $01; /* 
) 


Sub w(a l,a h,b l,b h:ix,$); 
( 


inline 

52а.%.а 1, /* 
$ed,$5b,4.b 1, /ж 

$b7, /* 

еа, $52, /ж 

$dd, $75, $00, /ж 

$dd, $74, $01; /* (ix+1).h 

) 


data ти1:00, mul ч:00,00; 


mul (а,Ь; #,#); 
var mul_m at(_code+6); 
4 
inline 
$21,#.b, 


っ っ 


$3a,#.a, 
$cd,#.mul_m, 


$32,#._mul, 
$7d; 


) 
mulov(;#,#); 
{ 


.mul; 


1а а, (.а) 
call mul m 

xor a 

sub h 

ld а,һ 

1а (._mul),a 
1d a,1 


mul. w(a l,a h,b l,b hiix,1$); 
( 


mulov_w(;ix,#); 
{ 


) 


div(a,b;4, 1); 


$ 


inline 
$c5, /* push bc 
$21,#0000, /* ld nhl,0000 
$ed, $4Ь,#.а 1, /ж ld  bc,(.a 1) 
$ed,$5b,#.b_1, /% ld ае, (.Ь_1) 
$3e, $10, /* ld a,18h 
$29, /* add hl,hl 
$cb, $11, /* rl с 
$cb,$10, /* rl b 
$30,$04, /* jr nc,S1 
19, /* add hl,de 

830,901. /* jr  nc,sl 
$03, /* inc bc 
$3d, /* dec a 
$28.$12, /* jr nz,lp 
$ed,$43,4. mul w,/* ld (. mul w),bc 
$dd,$75,$00, /* ld (1х),1 
$dd,$74,$01, /* ld (ix+1),h 
$98, /* sub b 
$3e, $00, /* ld а,0 
899, /* sbc а,с 
$cl; /* pop bc 
ӨГіх,11:: mul w[11; 
ӨГіхі:с mul w; 

data то4:00, mod w:00,00; 

var rem m at(. code*$12); 
inline 
$За,#.а, /ж ld а, (.а) 
$21,#.0, /* ld hl..b 
$cd,st.rem m, /* call .rem m 
832,%. mod, /* ld (. mod),a 
$b7, 7^ dr а 
$7b; /* 1а 2,6 


) 


mod(;#,#); 
{ 


mod; 


ж/ 
ж/ 
ж/ 
ж/ 
ж/ 
ж/ 
ж/ 


ж/ 


ж/ 


EC 
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div w(a l.a h,b l,b h:lx.$); 
( 


inline 
$2а,#.а_1, /* 1а 
$ed,$4b,#.b 1. /w ld 
$1 1 ,#9999 , /* ld 
$3e, $10, /* ld 
$29, /* add 
$eb, /* ex 
$еа, $6а, /* adc 
$еа, $42, иж sbc 
. /* inc 
$30 , $02, /* jr 
$09, /* add 
$1b, /* dec 
$eb, /* ex 
$3d, /* dec 
820,841. /* jr 
$dd,$75,00, /* ld 
$dd, $74,01, /* ld 
$ed,$53,4. mod w,/* ld 
$7b, /* ld 
$b2; /* or 


) 
mod w(;1x,4$); 
( 


ӨГіх,11:: mod чГ11; 
ӨГіхі:- mod w; 
) 


array(x,y,ziftix,i); 
var adr l,adr h; 
í 
if @[ix,4]-1 then( 


аб 
bc,(.b_1) 
de.0000 
a,19h 
hl, hl 
de, hl 
h1 ,h1 


*/ 


*/ 


adr 1:-ти1(2.ӨГіх,32);адг h:szmulov(); 


inline 
$2a,*.adr 1. 


$22,4.adr 1; 


mul w(adr l,adr h.0[ix,21,80;.adr 1); 


) 


/* ld hl,(.adr_1) 


/* ld a,(.y) 
/* 1а е.а 
/ж ld 4,00 
/* add hl,de 


/* ld Һ1,(.адғ 1) 


else (adr_l:=mul(y,@[ix,21);adr_h:=mulov();) 


inline 

$2a,#.adr_1, /* ld hl,(.adr_1) 
$dd, $5e, 88 , /* ld е, (іх) 
$dd, $56,01, /* ld а, (1х+1) 
$19, /ж add hl,de 
$3a,#.x, /* ld a,(.x) 
$5f, /* ld е,а 
816,500, /* ld 4,00 
$19, /ж add hl,de 
$e5, /* push hl 

$аа, $е1; /ж рор іх 


) 


load аггау(х.у,27іх,%9; 


つづ く 


CEND --- 


( 
array (x,y,z;ix); 
ӨГіхі; 

) 


Store аггау(а,х,у,2:іх,%); 
( 


аггау(х,у,2;іх); 
@[1x]:=ai 


ӨЗ сое 
4-4-6 コン バイ ラ の 全 リ スト 

Stellar コン パイ ラ の 全 ダ ンプ ・ リ スト を リス ト 4-13 に 示 
し ます 。 こ の と お り に 打ち 込め ば, T CU Stellar が 使え る 
TIENIE T 

(1) コン パイ ラ の ダン プ ・ リ スト と 打ち 込み か た 

ダン プ ・ リ スト の チェ ッ ク サ ム は 8 バイト の デー タ の 和 で 
す 。 モ ニタ の 一 部 を 変更 する こと に より ダン プ ・ コ ユ コマンド 
(D コ マン ド ) で チェ ッ ク サ ム を 表示 で きま す (8 バイ ト 文 
字 は 表示 る れ ま せん )。 変更 箇所 を 図 4-19 に 示す の で M コ ユマ 
ンド で 変更 し て くだ さい 。 

コン パイ ラ は BASIC と 領域 が 重なっ て いる の で , 絶対 に 
R コマ ンド を 実行 し な いで くだ る きい 。 実行 開始 番地 は 14 A 
0 H な の で , “G 14 A 0 回 "と し て 起動 し ます (コー ルド ・ ス 
A —b)s 
«ТІНЕ» モニ タ の 変更 箇所 


:11C8=3A CD 20 14 41 АҒ 86 23 : 
:11D9=19 ЕС CD 07 12 00 00 00 : 


:11D8=99 00 99 00 99 00 CD 46 : 


(2) IPL 起動 
IPL 起動 する に は M コ マン ド て 次 の 2 ヵ所 を 変更 し て , 


012BH => А0 
012CH 14 
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:14A9=C3 
:14A8=16 
: 14B9=99 
: 14B8=99 
:14C9=4F 
: 14C8=99 
: 14D9=93 
: 14D8=4E 
:14Ей-00 
:14E8=46 
: 14F9=FF 
:14F8=3A 
: 1599=17 
:1508=65 
:1519=6F 
:1518=29 
:1520=EF 
:1528=09 
:1530=A3 
:1538=FE 
:1540=ED 
:1548=E1 


174 


S コマ ンド で カセ ッ ト ・ テ ー プ に 


| *S0 67DF 0 : Stellar [J 


EE て の し て くだ る ts 

これ で セー ブ き され た テー は IPL 起動 で きる よう に な り 
ます 。 ФЛ, テキ スト (ライ デラ リリ など) を Stellar と いっ 
し ょ に セーブ グ し て IPL 起動 する と こと も で きま す 。 テ キス 
ト の 最終 アド レス は 14B6H, 14B7H に 示し て ある の で セ ャ セーブ 
する と き の 最 終 ア ドレ ス を テキ スト の 最終 アプ ド レス に 変更 し 
て セー ブ し て くだ きい 。 た と えば 14B6H が 1AH, HB7H2797H, 


を な も 
*S0 971A 0 : Stellar (2) 
БЫ 


Stellar が 起動 する と 画面 が クリ ア さ る れ て 


Source on Memory (Y/N) ? 


と 表示 する の で , メモ リ 上 に プロ グラ ム が ある と き は Y (š 
た は y) な いと き は N (また は n) を 押し て くだ さる い 。 
この 時 点 で 画面 に “ST>" と いう プロンプト が 表示 る れ ま て , 
コマ ンド 待ち に な り ま す (コマ ンド ・ モ ー ド )。 


:1559=B6 
:1558=CD 
21560-01 

:1568=0A 
・1579=A3 
:1578=21 

:1580=32 
:1588=15 
:1599=11 

:1598=FF 
・15A9=D8 
:15A8=FE 
:1580=L1 

:1588=01 
:15C0=61 
:15C8=AF 
:1500-79 
:15D8=32 
:15E9=C9 
:15E8=17 
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END -: :1820=Е4 7E CD 66 17 18 BA 41 :4F 


11828273 63 00 42 69 6E 00 44 :33 
:15Е0=В7 C8 13 BE 23 37 СӨ 18 :82 11830269 72 00 42 61 73 08 53 :44 
:15F8sF6 11 BA 14 E5 1A 13 87 :9E :1838=75 GE 4D 6F 6E 54 75 65 :3В 
11600228 12 47 7E CD 51 14 B8 :Е9 11840257 65 64 54 68 75 46 72 ;99 
11608223 28 F2 El 1А 13 B7 20 :22 11848269 53 61 74 ЗЕ ЗЕ ЗЕ ЗА :88 
:1618*FB 13 18 E8 E5 СІ El 1А :AF :1850=0L 00 FE 18 20 ØC Зр 32 :Cg 


:1618=C9 23 7E B7 37 C8 FE 20 :3E :1858=0Е 00 CD 62 18 ЗЕ ØD сз :64 
11620728 F7 C9 53 54 ЗЕ 00 58 :25 11860213 00 ЗА B9 14 32 17 00 :63 
1162831 20 53 74 65 6C 6C 61 :B6 :1868=3A 17 00 FE 18 DØ 01 80 :B8 
11630272 28 63 6F 6D 70 69 6C :16 :1879=27 1E ВА 21 07 88 16 ØF :9C 


11638265 72 20 56 65 72 28 31 :75 
:1640*2E 30 ØD 08 7E 23 B7 37 :FA 
:1648=С8 FE 20 28 F7 FE 2F 20 :52 


11650212 7E 23 FE 70 28 04 1800-79 03 15 20 F8 ЗЕ 20 ED : 


т 
m 
= 
に 


:1658=50 20 08 ЗЕ 01 32 72 14 :6F 1898-79 03 C5 01 09 00 09 СІ 
11660=7E 87 C8 37 СЭ 31 00 00 :2E 18A0*1D 20 E8 01 A7 37 ЗЕ 2B 
11668221 86 15 E5 ЗЕ 01 01 ЗЕ :1F :18A8=ED 79 C9 ED 51 83 2B 7C :17 
:1670=00 32 AF 14 CD BA 15 CD :5E :18B9=B5 20 F8 C9 E5 D5 C5 21 :36 
:1678=8С 89 CD B4 18 CD 01 18 :E4 :18B8=42 8F 11 18 ҒА 18 89 Е5 :72 
:1689=CD 4F 18 ЗЕ 64 32 92 03 :9D :18C9=D5 C5 11 42 ӨЕ 21 10 FA :27 
11688*CD B5 16 ЗА AF 14 CD ВЕ :D1 :18C8=91 AØ 00 ED BØ СІ DI El :Bl 
:1690=19 ЗЕ 67 32 92 83 CD ВЕ :11 :18D9=C9 21 42 ØF 11 58 19 ØE :CB 
11698218 CD 4F 18 ЗА B8 14 32 :84 :18D8-0A 06 02 36 02 23 1A 77 :FE 
11640216 00 32 ØF 00 ЗЕ ØC CD :6E :18E9=13 23 10 FA 06 ØD 36 20 :A9 
11648213 00 C9 CD F4 34 C8 22 :ВС :18E8=23 10 FB ØD 20 EB C9 21 :39 
:16B9=9E 00 СЗ ØB 00 21 F2 ФЕ :FD :18F9=42 BF 11 1A 19 86 ВА 22 :C7 
:16B8=11 00 01 ØE ВА 72 23 06 :C5 :18F8=B9 FA 9E 00 1A 13 B7 28 :C4 
:16C9=97 73 23 18 FC ØD 20 F5 :CB :1999=95 23 77 ØC 18 F6 E5 2A :C8 
:16C8=C9 11 EG 16 CD 8B 00 CD :7B :1908=B0 FA 71 El ЗЕ ØF 91 АҒ :29 
:16D0=A3 38 CD 51 14 FE 59 CØ :24 :1919=23 36 20 8D 28 FA 23 18 :D3 
:16D8=11 88 FF 21 ЕС 16 81 07 :4B :1918=DE C9 53 45 44 8D 00 43 :D3 
:16E0=00 ED BØ СЗ 88 FF ØD 41 :AD :1920-4Ғ 4D 58 8D 00 4C 44 4F :D8 
:16E8=72 65 20 79 6F 75 20 73 :E7 :1928=42 4A ØD 00 43 4F 4E 54 :CD 
:16F9=75 72 65 20 28 59 2F 4E :6A :1939=9D 00 52 55 4E ØD 00 4D :5C 
:16F8=29 28 ЗЕ 00 ЗЕ 1р рз 88 :B6 :1938=4F 4E 0р 00 41 50 53 53 :El 
:1799=C3 88 00 1A FE 2D 28 06 :36 :1949=2B 8D 00 41 58 53 53 2D :9C 
:1798=FE 2B CØ ЗЕ 05 81 ЗЕ 06 :71 :1948=9D 88 46 49 4C 45 53 ØD :8D 
:1719=CD EC ØD СЗ C2 2F EB 7E :E3 :1959=99 52 55 4E 20 26 48 00 :83 
:1718=B7 C4 44 16 D8 CD A3 84 :21 :1958=9B 42 0B 4B 0B 48 08 07 :95 
11720221 00 FF 81 20 00 CD 41 :4F :1969=11 4D 11 42 11 4B 11 52 :79 
:1728=99 DA C2 2F CD 34 17 CD :B9 :1968=11 43 11 59 C3 A4 28 ED :3A 
:1730=0B 17 18 EC 7E B7 C8 CB :EE :1970=73 47 FB 2A 7E 14 22 4B :DE 
:1738=7F 11 2F 18 20 11 11 2B :44 :1978=FB 21 9E 2D 22 7E 14 31 :CC 
:1749=18 CB 47 20 ØA 11 33 18 :B9 :1980=00 FF DD 21 B2 FA F5 CD :6B 
:1748=СВ 4F 20 03 11 27 18 CD :5A :1988=B5 28 CD EG 27 CD F4 27 :9F 
:1759=2F 14 CB 76 ЗЕ 2A C4 20 :р0 :1999=F1 87 20 06 2A B8 14 22 :DE 
11758214 CB 6E ЗЕ 23 C4 20 14 :A6 :1998=B4 14 CD CB 2D CD 5A 2B :DF 
:1760=CD 3C 14 3E 22 CD 28 14 :7E :19A9=DD CB 88 9E CD Еб 27 AF :CF 
:1768=Е5 06 ØD 23 7E CD 20 14 :9A :19A8=91 88 10 ED 79 83 ED 79 :E0 
117702180 F9 ЗЕ 2E CD 20 14 86 :7C :19B0=03 ED 79 03 ED 79 3C 32 :49 
:1778=93 23 7E CD 20 14 10 F9 :AE :19B8=3F FB CD 70 2B 21 ØA 2B :F8 
:1789=11 08 88 19 ЗЕ 22 CD 20 :7F :19C0=E5 CD 98 1А CD DI 2B CD :FA 
:1788=14 CD 3C 14 3E 27 CD 20 :83 :19C8=A3 38 4F FE 20 DA 28 1А :64 
:1790=14 11 00 FF CD BE 17 CD :93 :19D0=DD СВ 00 4E C2 F7 07 CD :83 
:179822F 14 ЗЕ 20 CD 20 14 CD :6F :1908=1р 29 28 22 C5 CD 87 1А :C3 
:17A0=F6 17 CD 2F 14 3E 20 CD :48 :19E9=C1 CD 06 1A DD CB 00 4E :A4 
:17А8=20 14 23 23 23 CD 11 18 :93 :19E8=C2 F7 07 CD 83 1A CD 08 :CF 
:17B0206 05 1A CD 20 14 13 18 :49 :19F9=28 C8 CD 04 28 2A B4 14 :DB 
:17В8=Е9 CD 46 14 El C9 D5 E5 :84 :19F8=CD 38 28 C3 8D 28 CD F4 :DE 
:17C0=7E CD E6 17 3E 2F CD F3 :75 :1A99=1A 8E 8D C3 B4 1D CD D8 :6E 
:17C8=17 23 7E ӨЕ ӨЕ ВЕ ØF Еб :DA :1A98=28 CA C4 27 DD CB 00 46 :СВ 
:17D9=9F C6 00 27 CD E6 17 ЗЕ :04 :1A19=C2 6B 27 FE ØD 28 ØA 79 :0А 
:17D8=2F CD ЕЗ 17 23 7E CD Е6 :5A :1A18=FE 8D C8 FE 09 C8 C3 D5 :3A 
:17E9=17 АҒ 12 El 01 C9 F5 ӨЕ :57 :1A29=27 79 FE ØD C2 6B 27 C9 :С8 
:17E8=9F ӨЕ ØF CD EF 17 Fl E6 :D7 :1A28=CD F4 1A 21 38 IA 87 5F :34 
:17F0=0F C6 30 12 13 C9 E5 D5 :AD :1A39=16 88 19 7E 23 66 6F E9 :8E 
:17F8=23 7E E6 87 5F 16 00 21 :24 11438282 1A C2 18 82 1А EQ IC :11 
:1899=37 18 19 19 19 01 03 00 :9E :1A49=26 1B 72 1B F8 18 28 1р :26 
:1898=D1 05 ED 80 AF 12 ПІ El :B6 :1A48=45 1B EF IC 7E 38 DF 23 :1B 
:1810=C9 D5 Е5 86 02 7E CD E6 :BC 

21818-17 ЗЕ ЗА CD ЕЗ 17 23 10 :99 つづ く 


175 
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:1A50=04 
:1A58=F7 
:1A69=69 
:1A68=92 
:1A79=26 
:1A78=ED 
:1A89=7E 
:1A88=CB 
: 1A99=99 
:1A98=DD 
: 1AA9=56 
:1AA8=4E 
: 1AB9=4E 
:1AB8=38 
: 1ACg=B4 
:1AC8=14 
: 1AD9=B4 
:1AD8=FB 
・1AE9=22 
:1AE8=22 
:1AF9=CB 
:1AF8=C8 
: 1B99=ED 
: 1B98=42 
:1B19=FB 
:1B18=B2 
:1В20-96 
:1В28-28 
:1B39=1C 
:1B38=C9 
:1840=43 
:1B48=CD 
: 1B59=CF 
:1B58=28 
:1B69=2A 
:1B68=1F 
:1B79=43 
:1B78=75 
:1880=32 
:1B88=28 
:1В890=Е1 
:1B98=2A 
: 1BA9=3C 
:1ВА8=7Е 
: 1BB9=C3 
: 1BB8=27 
: 1BC9=E1 
: 1BC8=38 
:1BD@=1B 
:1BD8=2B 
: 1BE9=22 
:1BE8=14 
:1BF9=55 
:1BF8=CD 
: 1C99=CD 
:1C98=1C 
:1C19=B4 
:1C18=F9 
: 1C29=2B 
: 1C28=FE 
: 1C39=FE 
: 1C38=FE 
:1C49=FF 
:1C48=32 
:1C59=C9 
:1C58=46 
:1C69=CD 
:1C68=FB 
:1C79=1C 
: 1C78=28 


:1C88-EB 
:1C88-D8 
: 1C99=CD 
:1C98-08 
:1САВ=39 
:1СА8=03 
:1CB8-9E 
:1CB8-8D 
: 1CCB=22 
:1CC8=FB 
: 1CD9=CD 
:1CD8=28 
: 1CE=CD 
:1CE8-FB 
: 1CF9=CB 
: 1CF8=CB 
:1000=28 
:1D98=96 
:1D19=19 
:1D18=28 
:1020=13 
:1D28=CD 
:1D30=F1 
:1D38=0D 
:1D40=28 
:1D48=AF 
: 1D59=B4 
: 1D58=28 
:1060=73 
:1068=29 
:1070=СА 
:1D78=1C 
:1D8=CD 
:1D88=28 
:1D99=CD 
:1098=47 
: 1DA9=FB 
: 1DA8=99 
:1DB9=14 
: 1DB8=C9 
:1DC9=28 
:1DC8=CD 
:1000=14 
: IDD8-00 
1DE0=9E 
: 1DE8=0D 
:10Е0=С3 
:1DF8=CD 
:1E00=00 
: 1E98=C9 
:1E16=17 
:1E18=32 
:1E29=41 
:1E28=1E 
:1Е30=78 
1Е38=22 
:1Е40=28 
:1Е48=В6 
: 1E59=D2 
: 1E58=67 
:1E69=CD 
: 1E68=BE 
:1Е70-22 
: 1E78=1E 
:1E89=4D 
: 1E88=6F 
: 1E99=29 
:1Е98=73 
:1EA9=1A 
: 1EA8=AE 


っ っ * 


: 1EB9=CA 
: 1EB8=29 
: 1EC9=3A 
: 1EC8=14 
: 1ED9=35 
: 1ED8=B5 
: 1EE9=66 
:1EE8=1 1 
:1EF9=92 
:1EF8=23 
: 1F99=28 
:1F98=3C 
21Ғ10-28 
:1F18=5F 
:1F29=E1 
:1F28=1B 
:1F39=1B 
:1F38=78 
: 1F49=93 
:1F48=FF 
:1F59=1F 
:1F58=B9 
:1F69=9E 
:1F68=3F 
:1F79=28 
:1F78=38 
:1F89=78 
:1F88=79 
:1F99=B7 
:1F98=99 
:1FA9=9D 
:1FA8=29 
:1FB9=9D 
:1FB8=3F 
: 1FC9=29 
:1FC8=29 
:1FD9=6C 
:1FD8=73 
:1FE9=29 
:1FE8=29 
:1FF9=6E 
:1FF8=72 
: 2999=75 
:2008-70 
:2010-6Е 
:2918=6C 
12020265 
: 2928=69 
: 2939=79 
:2038-6В 
:2949=65 
:2048=63 
: 2959=1 1 
: 2958=99 
:2060-ҒА 
:2068-9Е 
:2070-0Е 
:2078-АЗ 
:2080-08 
: 2988=29 
:2090-23 
:2098-21 
:29A9=B7 
: 29A8=38 
: 29B9=28 
: 29B8=29 
:29C9=CD 
: 29C8=27 
:29D9=FC 
:2008=18 


:20E@=DD 
: 29E8=32 
: 26F9=38 
: 29F8=4F 
:2100=B4 
:2108-С8 
:2110-СВ 
22118-21 
:2120-С0 
:2128=91 
:2138-CD 
:2138=1F 
: 2146=59 
:2148=DD 
:2150-В5 
22158-01 
:2160-Е9 
22168-10 
:2170-4А 
:2178-E3 
:2180-F4 
:2188=01 
:2190=22 
:2198=14 
:21A0=01 
:21A8=22 
:21B8-CD 
:21B8-5E 
:21C8=CD 
:21C8=76 
:21D0=01 
:21D8=B4 
:21E0=2A 
:21E8=2D 
:21F0=DD 
:21P8=CB 
:2200-5Е 
:2298=CD 
:2210-ВС 
:2218=CD 
:2220-22 
: 2228=17 
:2230-07 
: 2238=39 
: 2246=CD 
: 2248=59 
:2250-63 
:2258-0E 
:2260=С0 
:2268-00 
: 2279=9D 
: 2278=C9 
:2280-06 
:2288-В6 
:2290-ҒА 
:2298-23 
:22А0-18 
:22А8-ЕВ 
:22В0-С0 
: 22B8=99 
: 22C9=EC 
: 22C8=14 
:22D8-CD 
:22D8=04 
:22Ей-48 
:22Е8-ЕВ 
:22F0-B4 
:22F8-6C 
:2300-4Е 
:2308-02 
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リス ト 4 


:2310-Ср 
:2318=2D 
:2320=B5 
:2328=65 
:2330=20 
:2338=4@ 
:2340-03 
:2348=03 
:2350=FE 
:2358=FE 
:2360=23 
:2368=00 
: 2379=1A 
: 2378=23 
:2380-40 
:2388-4D 
:2398-08 
:2398-3D 
:23A0=20 
:23A8=22 
:23B0=A2 
:23B8=C9 
: 23C9=23 
: 23C8=EB 
:2300-20 
: 23D8=7C 
: 23E9=21 
: 23E8=3E 
: 23F9=CD 
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a テキ スト の コン パー ト m 


『 又 1-DUAD』 は ディ スク ・ ベ ー ス の アセ ンプ ブラ な の で ,『 マ 
シン 語 プ ログ ラミ ング 入門 」 に 掲載 され て いる エディ タ ・ ア セ 
ンプ ブラ に 比べ て 開発 効率 が 向上 し ます 。 

そこ で , この アセ ンプ ブラ か ら 『X1-DUAD』 へ テキ スト を コ 
ン バ ー ト する 方 法 で す が , これ は 特に 難し いと ころ は あり ま 
せん 。 と いう の は , エディ タ ・ ア セン ブラ は テキ スト を 単純 
に バイ ナリ 形式 で セー プ し て いる だ け で あり ,『X1-DUAD』 
は BASIC と 同じ ファ イル 構造 で ある か ら で す 。 そ の た め , テ 
キス ト は モニ タ の L し コマ ンド か LOADM 命令 で 読み 込み 、 あ 
と は シー ケン シャ ル ・ フ ァイル と し て ディ スク に 書き 込め ば 
よい こと に な り ま す 。 ま た , 『X1-DUAD』 は , テキ スト を 中 
間 コ ー ド 形式 で 持っ て いま す が , アス キー 形式 の ロー ド , + 
ー ブ も 可能 で す 。 コ ン バ ー ト は 以下 の 手順 で 行っ て くだ さい 。 
① リ スト A 一 1 を アセ ンプ ブル し て , オプ ジェ クト を ディ スク 
に ファ イル 名 “text loader" + LC — 7, 
コン バー ト し た い テ キス ト が 入っ て いる テー プ を セッ ト し 
©, リス ト A 一 2 の プロ グラ ム を 実行 する 。 
⑧『X1-DUAD』 を 起動 し て , LOADA 命 令 で ロー ド す る 。 
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1 š 

2 $ ==== “text loader" ---- 
3 5 

4 0041 1oad1 equ 9941H 

5 0044 load2 equ . 0044H 

6 1321 fmprhl equ 1321H 

7 9DEC cmtcom equ gDECH 

8 142F Printp equ 142FH 

9 8443 cr2 equ 94A3H 

9 Н 

1 1472 filout equ 1472H 

2 C000 startm equ 9C999H 

3 C812 leni equ startm*12H 


9FF99H-9C999H+1 
9BF99H 


18 BF99 AF Start: xor a 
19 BF01 327214 1d (filout),a ; output device is display 


2100C0 hl,startm 
22 BF07 012000 1d bc, 29H 


23 BF9A CD4199 call 1oad1 ; load FCB 

24 BF0D 3822 jr с,еггогі ; load ok ? 

25 ВҒФҒ 114FBF 1а de,lmes 

26 BF12 CD2113 call fmprhl ; Print file name 

27 BF15 ED4B12C9 1а bc, (lenl) ; bc := data length 

28 BF19 EB ex de,hl ; Save hl to de 

29 BF1A 21013F 1d hl,free 

30 BFID B7 or a 

31 BFIE ED42 sbc hl, bc ; if hl < bc then ' too long 
32 BF28 3814 jr c,error2 


ED4398BF 
EB 


(1ength) ,bc 


de,hl load hl from de 


36 BF27 CD4499 call load2 

37 BF2A 388F jr c,error3 3 load body 
38 Н 

39 ВЕ2С 1157BF 1а de,okmes 

40 ВЕ2Ғ 1812 ` Jr print2 

41 ; 

42 BF31 115FBF errori: ld de, emes1 

43 BF34 1888 jr print 

44 BF36 116EBF error2: 14 de,emes2 

45 BF39 1803 jr print 

46 BF3B 1177BF error3: 14 de,emes3 

47 ; 

48 BF3E 3EFF print: 1d а, BFFH 

49 BF48 3292BF 1d (status ) ,a 

59 BF43 CDA394 Print2: call cr2 

51 BF46 CD2F14 call printp 

52 BF49 3E91 1а a,1 ; cassett stop cmd 
53 BF4B CDECOD call cmtcom 

54 BF4E C9 ret 

55 ; 


56 BF4F 6C6F6164 1mes: defm *loading' 
BF53 696E67 


57 BF56 00 defb 8 

58 BF57 6C6F6164 okmes: defm `load ок" 
BF5B 286F6B 

59 BFSE 00 defb 


[] 
68 BF5F 46434228 emesl: defm 'FCB load error 
BF63 6C6F6164 
BF67 28657272 


BF6B 6F72 
61 BF6D 88 defb 8 
62 BF6E 746F6F28 emes2: defm 'too long' 
BF72 6C6F6E67 
63 BF76 00 defb в 
64 BF77 62626479  emes3: defm "Боду load error' 


BF7B 296C6F61 
BF7F 64286572 
BF83 726F72 


65 BF86 88 defb 8 
66 : 
67 BF98 org 9BF99H 
68 BF9 0006 length: defw 8 
9e status: defb 8 
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--- convert text from editor assembler to DUAD-X1 
CLEAR &HBEFF 
LOADM"text loader" 
DEFUSR=&HBF99 
as=USR(9) : PRINT 
IF PEEK(&HBF92) く >9 THEN END 
1gth=&HBF99 : St=&HC999 : 1п=1 
1gth=PEEK(1gth)+PEEK(1gth+1 )x256 
PRINT "== ^"; HEX%9(1gth);" ==" 


INPUT "file name -5":na$ 
OPEN "0",#1,na$ 
PRINT#1 , STR$CITO ; 
WHILE lgth >= 8 
chzPEEK(st) 
PRINT&1,CHR$(Ch) ; 
IF ch=&HD THEN 1п=1п+1 : PRINTS ,STR$(CIn);" 
st=st+1 : lgth=lgth-1 
WEND 
CLOSE 
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